home *** CD-ROM | disk | FTP | other *** search
Unknown | 1989-04-05 | 35.0 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
100%
| file
| data
| default
| |
100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 4f 55 54 45 52 50 4c 41 |.... . >|OUTERPLA|
|00000010| 4e 53 0d 00 14 06 20 3a | 0d 00 1e 3d 20 f4 20 41 |NS.... :|...= . A|
|00000020| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 3a 20 |cknowled|gement: |
|00000030| 41 53 54 52 4f 4e 4f 4d | 59 20 57 49 54 48 20 59 |ASTRONOM|Y WITH Y|
|00000040| 4f 55 52 20 50 45 52 53 | 4f 4e 41 4c 20 43 4f 4d |OUR PERS|ONAL COM|
|00000050| 50 55 54 45 52 0d 00 28 | 2b 20 f4 20 20 20 20 20 |PUTER..(|+ . |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 65 74 | | Pet|
|00000070| 65 72 20 44 75 66 66 65 | 74 74 2d 53 6d 69 74 68 |er Duffe|tt-Smith|
|00000080| 0d 00 32 38 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..28 . | |
|00000090| 20 20 20 20 20 20 20 20 | 43 61 6d 62 72 69 64 67 | |Cambridg|
|000000a0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 50 72 65 |e Univer|sity Pre|
|000000b0| 73 73 20 20 31 39 38 35 | 0d 00 3c 06 20 3a 0d 00 |ss 1985|..<. :..|
|000000c0| 46 34 20 f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |F4 . | |
|000000d0| 20 20 20 20 20 20 46 65 | 72 64 69 6e 61 6e 64 20 | Fe|rdinand |
|000000e0| 4f 65 69 6e 63 6b 20 28 | 73 6f 72 74 20 63 6f 64 |Oeinck (|sort cod|
|000000f0| 65 29 0d 00 50 2b 20 f4 | 20 20 20 20 20 20 20 20 |e)..P+ .| |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 41 63 6f 72 6e 20 | | Acorn |
|00000110| 55 73 65 72 20 44 65 63 | 20 31 39 38 38 0d 00 5a |User Dec| 1988..Z|
|00000120| 31 20 f4 20 41 64 61 70 | 74 65 64 20 62 79 3a 20 |1 . Adap|ted by: |
|00000130| 20 20 20 20 20 44 41 41 | 46 2f 4a 41 46 20 44 75 | DAA|F/JAF Du|
|00000140| 6c 77 69 63 68 20 4d 61 | 72 20 31 39 38 39 0d 00 |lwich Ma|r 1989..|
|00000150| 64 06 20 3a 0d 00 6e 1c | 20 c8 99 22 4f 53 5f 55 |d. :..n.| .."OS_U|
|00000160| 70 64 61 74 65 4d 45 4d | 43 22 2c 36 34 2c 36 34 |pdateMEM|C",64,64|
|00000170| 0d 00 78 0a 20 db 3a eb | 20 30 0d 00 82 93 20 f1 |..x. .:.| 0.... .|
|00000180| 27 8a 35 29 3b 22 54 68 | 69 73 20 72 6f 75 74 69 |'.5);"Th|is routi|
|00000190| 6e 65 20 63 61 6c 63 75 | 6c 61 74 65 73 20 61 6c |ne calcu|lates al|
|000001a0| 74 69 74 75 64 65 73 20 | 61 6e 64 20 65 6c 6f 6e |titudes |and elon|
|000001b0| 67 61 74 69 6f 6e 73 20 | 66 6f 72 20 4d 41 52 53 |gations |for MARS|
|000001c0| 2c 20 4a 55 50 49 54 45 | 52 20 20 20 20 20 20 20 |, JUPITE|R |
|000001d0| 20 20 20 20 20 20 20 6f | 72 20 53 41 54 55 52 4e | o|r SATURN|
|000001e0| 20 64 75 72 69 6e 67 20 | 61 6e 79 20 70 65 72 69 | during |any peri|
|000001f0| 6f 64 20 28 69 6e 20 64 | 61 79 73 29 20 75 70 20 |od (in d|ays) up |
|00000200| 74 6f 20 31 30 20 79 65 | 61 72 73 2e 22 0d 00 8c |to 10 ye|ars."...|
|00000210| 06 20 3a 0d 00 96 47 20 | f2 61 73 73 65 6d 62 6c |. :...G |.assembl|
|00000220| 65 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e:. | |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 41 52 4d | | ARM|
|00000250| 20 63 6f 64 65 20 73 6f | 72 74 0d 00 a0 1d 20 e8 | code so|rt.... .|
|00000260| 8a 36 30 2c 32 29 3b 22 | 50 72 69 6e 74 65 72 22 |.60,2);"|Printer"|
|00000270| 3b 54 61 62 6c 65 24 0d | 00 aa 0f 20 f1 8a 35 2c |;Table$.|... ..5,|
|00000280| 34 29 3b 22 20 22 0d 00 | b4 20 20 de 20 46 4c 41 |4);" "..|. . FLA|
|00000290| 47 28 31 32 29 2c 50 4c | 41 4e 28 38 2c 39 29 2c |G(12),PL|AN(8,9),|
|000002a0| 4d 41 50 28 38 29 0d 00 | be 1d 20 dd a4 44 45 47 |MAP(8)..|.. ..DEG|
|000002b0| 28 57 29 3d 35 2e 37 32 | 39 35 37 37 39 35 31 45 |(W)=5.72|9577951E|
|000002c0| 31 2a 57 0d 00 c8 1e 20 | dd a4 52 41 44 28 57 29 |1*W.... |..RAD(W)|
|000002d0| 3d 31 2e 37 34 35 33 32 | 39 32 35 32 45 2d 32 2a |=1.74532|9252E-2*|
|000002e0| 57 0d 00 d2 1c 20 dd a4 | 52 4f 55 28 57 2c 58 29 |W.... ..|ROU(W,X)|
|000002f0| 3d a8 28 57 2a 58 2b 30 | 2e 35 29 2f 58 0d 00 dc |=.(W*X+0|.5)/X...|
|00000300| 23 20 dd a4 41 53 4e 28 | 57 29 3d 99 28 57 2f 28 |# ..ASN(|W)=.(W/(|
|00000310| b6 28 31 2d 57 2a 57 29 | 2b 31 45 2d 32 30 29 29 |.(1-W*W)|+1E-20))|
|00000320| 0d 00 e6 21 20 dd a4 41 | 43 53 28 57 29 3d 31 2e |...! ..A|CS(W)=1.|
|00000330| 35 37 30 37 39 36 33 32 | 37 2d a4 41 53 4e 28 57 |57079632|7-.ASN(W|
|00000340| 29 0d 00 f0 1a 20 dd a4 | 49 54 47 28 57 29 3d b4 |).... ..|ITG(W)=.|
|00000350| 28 57 29 2a a8 28 94 28 | 57 29 29 0d 00 fa 2c 20 |(W)*.(.(|W))..., |
|00000360| dd a4 4c 49 46 28 57 29 | 3d a8 28 57 29 2d 28 46 |..LIF(W)|=.(W)-(F|
|00000370| 4c 41 47 28 30 29 2d 31 | 29 2a a8 28 28 b4 28 57 |LAG(0)-1|)*.((.(W|
|00000380| 29 2d 31 29 2f 32 29 0d | 01 04 1a 20 dd a4 53 43 |)-1)/2).|... ..SC|
|00000390| 4c 28 57 29 3d 33 32 2d | 57 2a 33 32 2f 31 30 32 |L(W)=32-|W*32/102|
|000003a0| 34 0d 01 0e 1c 20 dd a4 | 55 4e 57 28 57 29 3d 57 |4.... ..|UNW(W)=W|
|000003b0| 2d a8 28 57 2f 54 50 49 | 29 2a 54 50 49 0d 01 18 |-.(W/TPI|)*TPI...|
|000003c0| 06 20 3a 0d 01 22 28 20 | dd a4 54 49 4d 28 57 2c |. :.."( |..TIM(W,|
|000003d0| 58 29 3d a8 28 28 30 2e | 33 38 33 32 38 2b 30 2e |X)=.((0.|38328+0.|
|000003e0| 30 34 31 38 30 2a 58 29 | 2a 57 29 0d 01 2c 2d 20 |04180*X)|*W)..,- |
|000003f0| dd a4 43 44 4e 28 57 2c | 58 2c 59 2c 5a 29 3d 28 |..CDN(W,|X,Y,Z)=(|
|00000400| 28 28 57 2d 58 29 2f 28 | 59 2d 58 29 29 2a 28 5a |((W-X)/(|Y-X))*(Z|
|00000410| 2d 32 35 29 29 2b 32 35 | 0d 01 36 06 20 3a 0d 01 |-25))+25|..6. :..|
|00000420| 40 2f 20 46 4c 41 47 28 | 30 29 3d 31 3a 44 49 53 |@/ FLAG(|0)=1:DIS|
|00000430| 3d 31 2e 34 35 39 33 45 | 2d 32 3a 54 50 49 3d 32 |=1.4593E|-2:TPI=2|
|00000440| 2a af 3a 49 50 3d 30 3a | 74 61 62 3d 30 0d 01 4a |*.:IP=0:|tab=0..J|
|00000450| 0e 20 f1 3a f1 3a f7 8d | 54 64 67 0d 01 54 27 20 |. .:.:..|Tdg..T' |
|00000460| e8 22 4c 6f 63 61 74 69 | 6f 6e 20 22 3b 43 49 54 |."Locati|on ";CIT|
|00000470| 59 24 3a e7 20 43 49 54 | 59 24 3d 22 22 8c 8d 64 |Y$:. CIT|Y$=""..d|
|00000480| 4c 41 0d 01 5e 3a 20 f3 | 4e 41 4d 45 24 2c 4c 31 |LA..^: .|NAME$,L1|
|00000490| 2c 4c 32 2c 4c 33 2c 4c | 34 2c 4c 35 2c 4c 36 2c |,L2,L3,L|4,L5,L6,|
|000004a0| 4c 37 3a e7 c0 4e 41 4d | 45 24 2c 33 29 3d c0 43 |L7:..NAM|E$,3)=.C|
|000004b0| 49 54 59 24 2c 33 29 8c | 8d 44 7c 41 0d 01 68 2c |ITY$,3).|.D|A..h,|
|000004c0| 20 e7 4e 41 4d 45 24 3d | 22 2a 22 20 8c f1 22 4c | .NAME$=|"*" .."L|
|000004d0| 6f 63 61 74 69 6f 6e 20 | 6e 6f 74 20 66 6f 75 6e |ocation |not foun|
|000004e0| 64 22 3a e5 8d 64 4c 41 | 0d 01 72 1f 20 e7 c0 4e |d":..dLA|..r. ..N|
|000004f0| 41 4d 45 24 2c 33 29 3c | 3e c0 43 49 54 59 24 2c |AME$,3)<|>.CITY$,|
|00000500| 33 29 8c 8d 44 5e 41 0d | 01 7c 12 20 f1 8a 31 30 |3)..D^A.|.|. ..10|
|00000510| 2c 37 29 3b 4e 41 4d 45 | 24 0d 01 86 06 20 f1 0d |,7);NAME|$.... ..|
|00000520| 01 90 2f 20 58 44 3d 4c | 31 3a 58 4d 3d 4c 32 3a |../ XD=L|1:XM=L2:|
|00000530| 58 53 3d 4c 33 3a e7 4c | 31 3e 2d 32 35 20 8c 20 |XS=L3:.L|1>-25 . |
|00000540| 4b 24 3d 22 2b 22 20 8b | 20 4b 24 3d 22 22 0d 01 |K$="+" .| K$=""..|
|00000550| 9a 1d 20 53 57 31 3d 2d | 31 3a f2 4d 69 6e 73 65 |.. SW1=-|1:.Minse|
|00000560| 63 3a 4c 4f 4e 47 3d 58 | 2f 31 35 0d 01 a4 16 20 |c:LONG=X|/15.... |
|00000570| 58 44 3d 4c 34 3a 58 4d | 3d 4c 35 3a 58 53 3d 4c |XD=L4:XM|=L5:XS=L|
|00000580| 36 0d 01 ae 13 20 53 57 | 31 3d 2d 31 3a f2 4d 69 |6.... SW|1=-1:.Mi|
|00000590| 6e 73 65 63 0d 01 b8 10 | 20 50 48 49 3d a4 52 41 |nsec....| PHI=.RA|
|000005a0| 44 28 58 29 0d 01 c2 0a | 20 e5 8d 64 7e 41 0d 01 |D(X)....| ..d~A..|
|000005b0| cc 38 20 e8 22 47 65 6f | 67 2e 20 6c 6f 6e 67 69 |.8 ."Geo|g. longi|
|000005c0| 74 75 64 65 20 20 20 20 | 20 28 44 2c 4d 2c 53 29 |tude | (D,M,S)|
|000005d0| 22 3b 58 44 2c 58 4d 2c | 58 53 3a 4e 41 4d 45 24 |";XD,XM,|XS:NAME$|
|000005e0| 3d c3 28 58 44 29 0d 01 | d6 2c 20 53 57 31 3d 2d |=.(XD)..|., SW1=-|
|000005f0| 31 3a f2 4d 69 6e 73 65 | 63 3a e7 58 44 3e 2d 32 |1:.Minse|c:.XD>-2|
|00000600| 35 20 8c 20 4b 24 3d 22 | 2b 22 20 8b 20 4b 24 3d |5 . K$="|+" . K$=|
|00000610| 22 22 0d 01 e0 1c 20 4c | 4f 4e 47 3d 58 2f 31 35 |"".... L|ONG=X/15|
|00000620| 3a 4c 37 3d a4 49 54 47 | 28 4c 4f 4e 47 29 0d 01 |:L7=.ITG|(LONG)..|
|00000630| ea 42 20 e8 22 47 65 6f | 67 72 61 70 68 69 63 20 |.B ."Geo|graphic |
|00000640| 6c 61 74 69 74 75 64 65 | 20 28 44 2c 4d 2c 53 29 |latitude| (D,M,S)|
|00000650| 22 3b 58 44 2c 58 4d 2c | 58 53 3a 4e 41 4d 45 24 |";XD,XM,|XS:NAME$|
|00000660| 3d 4e 41 4d 45 24 2b 22 | 3a 22 2b c3 28 58 44 29 |=NAME$+"|:"+.(XD)|
|00000670| 0d 01 f4 35 20 53 57 31 | 3d 2d 31 3a f2 4d 69 6e |...5 SW1|=-1:.Min|
|00000680| 73 65 63 3a 50 48 49 3d | a4 52 41 44 28 58 29 3a |sec:PHI=|.RAD(X):|
|00000690| 74 61 62 3d 31 3a f4 20 | 20 73 65 65 20 6c 69 6e |tab=1:. | see lin|
|000006a0| 65 20 37 31 30 0d 01 fe | 0a 20 f7 8d 44 56 5d 0d |e 710...|. ..DV].|
|000006b0| 02 08 2c 20 e8 22 53 74 | 61 72 74 69 6e 67 20 64 |.., ."St|arting d|
|000006c0| 61 74 65 20 20 20 20 20 | 20 20 28 44 2c 4d 2c 59 |ate | (D,M,Y|
|000006d0| 29 22 3b 44 59 2c 4d 4e | 2c 59 52 0d 02 12 15 20 |)";DY,MN|,YR.... |
|000006e0| f2 4a 75 6c 64 61 79 3a | 44 4a 44 31 3d 44 4a 44 |.Julday:|DJD1=DJD|
|000006f0| 0d 02 1c 27 20 e8 22 48 | 6f 77 20 6d 61 6e 79 20 |...' ."H|ow many |
|00000700| 64 61 79 73 22 3b 50 51 | 24 3a e7 50 51 24 3d 22 |days";PQ|$:.PQ$="|
|00000710| 22 20 8c 8d 44 62 42 0d | 02 26 27 20 50 51 3d bb |" ..DbB.|.&' PQ=.|
|00000720| 28 50 51 24 29 3a e7 50 | 51 3c 31 30 20 50 51 3d |(PQ$):.P|Q<10 PQ=|
|00000730| 31 30 3a f1 8a 31 34 2c | 31 30 29 3b 50 51 0d 02 |10:..14,|10);PQ..|
|00000740| 30 2c 20 41 4c 54 74 61 | 62 6c 65 3d 50 51 2d 33 |0, ALTta|ble=PQ-3|
|00000750| 3a e7 20 41 4c 54 74 61 | 62 6c 65 3c 31 20 8c 20 |:. ALTta|ble<1 . |
|00000760| 41 4c 54 74 61 62 6c 65 | 3d 31 0d 02 3a 22 20 46 |ALTtable|=1..:" F|
|00000770| 4c 41 47 28 32 29 3d 30 | 3a 44 4a 44 3d 44 4a 44 |LAG(2)=0|:DJD=DJD|
|00000780| 2b 50 51 3a 44 4a 44 32 | 3d 44 4a 44 0d 02 44 0c |+PQ:DJD2|=DJD..D.|
|00000790| 20 f2 43 61 6c 64 61 79 | 0d 02 4e 26 20 f1 22 45 | .Calday|..N& ."E|
|000007a0| 6e 64 20 64 61 74 65 20 | 69 73 3a 20 22 3b 44 59 |nd date |is: ";DY|
|000007b0| 3b 22 20 22 3b 4d 4e 3b | 22 20 22 3b 59 52 0d 02 |;" ";MN;|" ";YR..|
|000007c0| 58 0a 20 e5 8d 74 40 42 | 0d 02 62 19 20 e8 22 45 |X. ..t@B|..b. ."E|
|000007d0| 6e 64 20 64 61 74 65 22 | 3b 44 59 2c 4d 4e 2c 59 |nd date"|;DY,MN,Y|
|000007e0| 52 0d 02 6c 3c 20 46 4c | 41 47 28 31 29 3d 30 3a |R..l< FL|AG(1)=0:|
|000007f0| f2 4a 75 6c 64 61 79 3a | 44 4a 44 32 3d 44 4a 44 |.Julday:|DJD2=DJD|
|00000800| 3a 50 51 3d 44 4a 44 32 | 2d 44 4a 44 31 3a e7 20 |:PQ=DJD2|-DJD1:. |
|00000810| 50 51 3c 31 30 20 8c 20 | 50 51 3d 31 30 0d 02 76 |PQ<10 . |PQ=10..v|
|00000820| 14 20 f1 8a 30 29 3b 50 | 51 3b 22 20 64 61 79 73 |. ..0);P|Q;" days|
|00000830| 22 0d 02 80 35 20 44 4a | 44 3d 44 4a 44 31 3a 41 |"...5 DJ|D=DJD1:A|
|00000840| 4c 54 74 61 62 6c 65 3d | 50 51 2d 33 3a e7 20 41 |LTtable=|PQ-3:. A|
|00000850| 4c 54 74 61 62 6c 65 3c | 31 20 8c 20 41 4c 54 74 |LTtable<|1 . ALTt|
|00000860| 61 62 6c 65 3d 31 0d 02 | 8a 06 20 3a 0d 02 94 0e |able=1..|.. :....|
|00000870| 20 de 20 61 25 20 50 51 | 2a 38 0d 02 9e 37 20 de | . a% PQ|*8...7 .|
|00000880| 20 53 50 28 50 51 29 2c | 45 4c 28 50 51 29 2c 44 | SP(PQ),|EL(PQ),D|
|00000890| 41 54 45 28 50 51 29 2c | 44 41 54 45 41 28 50 51 |ATE(PQ),|DATEA(PQ|
|000008a0| 29 2c 48 53 52 28 50 51 | 29 2c 48 53 53 28 50 51 |),HSR(PQ|),HSS(PQ|
|000008b0| 29 0d 02 a8 3e 20 de 20 | 41 5a 73 75 6e 72 69 73 |)...> . |AZsunris|
|000008c0| 65 28 50 51 29 2c 41 4c | 54 73 75 6e 72 69 73 65 |e(PQ),AL|Tsunrise|
|000008d0| 28 50 51 29 2c 41 5a 73 | 75 6e 73 65 74 28 50 51 |(PQ),AZs|unset(PQ|
|000008e0| 29 2c 41 4c 54 73 75 6e | 73 65 74 28 50 51 29 0d |),ALTsun|set(PQ).|
|000008f0| 02 b2 25 20 de 20 41 5a | 6d 69 64 6e 69 67 68 74 |..% . AZ|midnight|
|00000900| 28 50 51 29 2c 41 4c 54 | 6d 69 64 6e 69 67 68 74 |(PQ),ALT|midnight|
|00000910| 28 50 51 29 0d 02 bc 3a | 20 de 20 4c 41 4d 28 50 |(PQ)...:| . LAM(P|
|00000920| 51 29 2c 42 45 54 28 50 | 51 29 2c 4c 41 4d 41 28 |Q),BET(P|Q),LAMA(|
|00000930| 50 51 29 2c 42 45 54 41 | 28 50 51 29 2c 4c 41 4d |PQ),BETA|(PQ),LAM|
|00000940| 42 28 50 51 29 2c 42 45 | 54 42 28 50 51 29 0d 02 |B(PQ),BE|TB(PQ)..|
|00000950| c6 06 20 3a 0d 02 d0 21 | 20 e8 22 4d 61 72 73 2c |.. :...!| ."Mars,|
|00000960| 4a 75 70 69 74 65 72 20 | 6f 72 20 53 61 74 75 72 |Jupiter |or Satur|
|00000970| 6e 22 3b 50 24 0d 02 da | 15 20 e3 4a 3d 31 b8 33 |n";P$...|. .J=1.3|
|00000980| 3a f3 20 50 4c 41 4e 45 | 54 24 0d 02 e4 2a 20 e7 |:. PLANE|T$...* .|
|00000990| c0 50 4c 41 4e 45 54 24 | 2c 31 29 3d c0 50 24 2c |.PLANET$|,1)=.P$,|
|000009a0| 31 29 20 8c 20 49 50 3d | 4a 3a 50 24 3d 50 4c 41 |1) . IP=|J:P$=PLA|
|000009b0| 4e 45 54 24 0d 02 ee 08 | 20 ed 20 4a 0d 02 f8 06 |NET$....| . J....|
|000009c0| 20 3a 0d 03 02 12 20 e7 | 20 49 50 3c 31 20 8c 20 | :.... .| IP<1 . |
|000009d0| 8d 64 50 42 0d 03 0c 14 | 20 f1 8a 32 33 2c 31 32 |.dPB....| ..23,12|
|000009e0| 2b 74 61 62 29 3b 50 24 | 0d 03 16 06 20 3a 0d 03 |+tab);P$|.... :..|
|000009f0| 20 2f 20 f1 22 54 69 6d | 65 20 72 65 71 75 69 72 | / ."Tim|e requir|
|00000a00| 65 64 3a 20 22 3b a4 54 | 49 4d 28 50 51 2c 49 50 |ed: ";.T|IM(PQ,IP|
|00000a10| 29 3b 22 20 73 65 63 73 | 22 3a d1 3d 30 0d 03 2a |);" secs|":.=0..*|
|00000a20| 06 20 3a 0d 03 34 1a 20 | e3 20 44 51 3d 31 20 b8 |. :..4. |. DQ=1 .|
|00000a30| 20 50 51 3a 44 4a 44 3d | 44 4a 44 2b 31 0d 03 3e | PQ:DJD=|DJD+1..>|
|00000a40| 33 20 f1 8a 31 35 2c 31 | 33 2b 74 61 62 29 3b c3 |3 ..15,1|3+tab);.|
|00000a50| 28 a4 54 49 4d 28 50 51 | 2c 49 50 29 2d a8 28 91 |(.TIM(PQ|,IP)-.(.|
|00000a60| 2f 31 30 30 29 29 2b 22 | 20 73 65 63 73 20 20 22 |/100))+"| secs "|
|00000a70| 0d 03 48 1f 20 44 41 54 | 45 28 44 51 29 3d 44 4a |..H. DAT|E(DQ)=DJ|
|00000a80| 44 3a 44 41 54 45 41 28 | 44 51 29 3d 44 4a 44 0d |D:DATEA(|DQ)=DJD.|
|00000a90| 03 52 17 20 46 4c 41 47 | 28 29 3d 30 3a 46 4c 41 |.R. FLAG|()=0:FLA|
|00000aa0| 47 28 30 29 3d 31 0d 03 | 5c 0c 20 f2 43 61 6c 64 |G(0)=1..|\. .Cald|
|00000ab0| 61 79 0d 03 66 48 20 f2 | 53 75 6e 72 73 3a f4 20 |ay..fH .|Sunrs:. |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 53 75 6e 72 69 73 | | Sunris|
|00000af0| 65 20 26 20 73 75 6e 73 | 65 74 0d 03 70 17 20 e7 |e & suns|et..p. .|
|00000b00| 20 45 52 52 31 3c 3e 30 | 20 eb 30 3a e5 8d 54 48 | ERR1<>0| .0:..TH|
|00000b10| 4c 0d 03 7a 32 20 58 44 | 3d 48 53 52 3a 58 4d 3d |L..z2 XD|=HSR:XM=|
|00000b20| 4d 53 52 3a 58 53 3d 53 | 53 52 3a 53 57 31 3d 2d |MSR:XS=S|SR:SW1=-|
|00000b30| 31 3a f2 4d 69 6e 73 65 | 63 3a 48 53 52 28 44 51 |1:.Minse|c:HSR(DQ|
|00000b40| 29 3d 58 0d 03 84 32 20 | 58 44 3d 48 53 53 3a 58 |)=X...2 |XD=HSS:X|
|00000b50| 4d 3d 4d 53 53 3a 58 53 | 3d 53 53 53 3a 53 57 31 |M=MSS:XS|=SSS:SW1|
|00000b60| 3d 2d 31 3a f2 4d 69 6e | 73 65 63 3a 48 53 53 28 |=-1:.Min|sec:HSS(|
|00000b70| 44 51 29 3d 58 0d 03 8e | 06 20 3a 0d 03 98 0b 20 |DQ)=X...|. :.... |
|00000b80| f2 50 6c 61 6e 73 0d 03 | a2 48 20 4c 41 4d 41 28 |.Plans..|.H LAMA(|
|00000b90| 44 51 29 3d a4 44 45 47 | 28 4c 41 4d 29 3a 42 45 |DQ)=.DEG|(LAM):BE|
|00000ba0| 54 41 28 44 51 29 3d a4 | 44 45 47 28 42 45 54 29 |TA(DQ)=.|DEG(BET)|
|00000bb0| 3a f4 20 47 65 6f 63 65 | 6e 74 72 69 63 20 63 6f |:. Geoce|ntric co|
|00000bc0| 6f 72 64 73 20 69 66 20 | 6e 65 65 64 65 64 0d 03 |ords if |needed..|
|00000bd0| ac 1e 20 f2 4e 75 74 61 | 74 3a 4c 41 4d 3d 4c 41 |.. .Nuta|t:LAM=LA|
|00000be0| 4d 2b a4 52 41 44 28 44 | 50 53 49 29 0d 03 b6 1f |M+.RAD(D|PSI)....|
|00000bf0| 20 41 3d 4c 47 2b af 2d | 4c 41 4d 3a 43 41 3d 9b | A=LG+.-|LAM:CA=.|
|00000c00| 28 41 29 3a 53 41 3d b5 | 28 41 29 0d 03 c0 22 20 |(A):SA=.|(A)..." |
|00000c10| 4c 41 4d 3d 4c 41 4d 2d | 28 39 2e 39 33 38 37 45 |LAM=LAM-|(9.9387E|
|00000c20| 2d 35 2a 43 41 2f 9b 28 | 42 45 54 29 29 0d 03 ca |-5*CA/.(|BET))...|
|00000c30| 22 20 42 45 54 3d 42 45 | 54 2d 28 39 2e 39 33 38 |" BET=BE|T-(9.938|
|00000c40| 37 45 2d 35 2a 53 41 2a | b5 28 42 45 54 29 29 0d |7E-5*SA*|.(BET)).|
|00000c50| 03 d4 1e 20 58 3d 4c 41 | 4d 3a 59 3d 42 45 54 3a |... X=LA|M:Y=BET:|
|00000c60| 53 57 33 3d 2d 31 3a f2 | 45 71 65 63 6c 0d 03 de |SW3=-1:.|Eqecl...|
|00000c70| 2e 20 4c 41 4d 28 44 51 | 29 3d 50 3a 42 45 54 28 |. LAM(DQ|)=P:BET(|
|00000c80| 44 51 29 3d 51 3a 4c 41 | 4d 42 28 44 51 29 3d 50 |DQ)=Q:LA|MB(DQ)=P|
|00000c90| 3a 42 45 54 42 28 44 51 | 29 3d 51 0d 03 e8 25 20 |:BETB(DQ|)=Q...% |
|00000ca0| 43 45 4c 3d 2d 31 2a 43 | 59 2a 9b 28 4c 41 4d 2d |CEL=-1*C|Y*.(LAM-|
|00000cb0| 4c 47 29 3a 45 4c 3d a4 | 41 43 53 28 43 45 4c 29 |LG):EL=.|ACS(CEL)|
|00000cc0| 0d 03 f2 4a 20 45 4c 3d | a4 44 45 47 28 45 4c 29 |...J EL=|.DEG(EL)|
|00000cd0| 3a 45 4c 28 44 51 29 3d | 45 4c 3a f4 20 20 20 20 |:EL(DQ)=|EL:. |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cf0| 20 20 20 20 20 20 50 6c | 61 6e 65 74 61 72 79 20 | Pl|anetary |
|00000d00| 65 6c 6f 6e 67 61 74 69 | 6f 6e 0d 03 fc 49 20 58 |elongati|on...I X|
|00000d10| 3d a4 44 45 47 28 4c 41 | 4d 28 44 51 29 2f 31 35 |=.DEG(LA|M(DQ)/15|
|00000d20| 29 3a 59 3d 42 45 54 28 | 44 51 29 3a f4 20 20 20 |):Y=BET(|DQ):. |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d40| 50 6c 61 6e 65 74 61 72 | 79 20 52 41 20 26 20 44 |Planetar|y RA & D|
|00000d50| 65 63 2e 0d 04 06 06 20 | 3a 0d 04 10 17 20 46 4c |ec..... |:.... FL|
|00000d60| 41 47 28 29 3d 30 3a 46 | 4c 41 47 28 30 29 3d 31 |AG()=0:F|LAG(0)=1|
|00000d70| 0d 04 1a 06 20 3a 0d 04 | 24 25 20 54 49 4d 3d 48 |.... :..|$% TIM=H|
|00000d80| 53 53 28 44 51 29 3a 53 | 57 32 3d 31 3a f2 47 74 |SS(DQ):S|W2=1:.Gt|
|00000d90| 69 6d 65 3a 47 53 54 3d | 47 54 4d 0d 04 2e 1e 20 |ime:GST=|GTM.... |
|00000da0| 58 3d a4 44 45 47 28 4c | 41 4d 28 44 51 29 2f 31 |X=.DEG(L|AM(DQ)/1|
|00000db0| 35 29 3a f2 48 72 61 6e | 67 0d 04 38 22 20 58 3d |5):.Hran|g..8" X=|
|00000dc0| a4 52 41 44 28 50 29 2a | 31 35 3a 59 3d 42 45 54 |.RAD(P)*|15:Y=BET|
|00000dd0| 28 44 51 29 3a f2 45 71 | 68 6f 72 0d 04 42 48 20 |(DQ):.Eq|hor..BH |
|00000de0| 58 3d a4 44 45 47 28 50 | 29 3a 51 3d a4 44 45 47 |X=.DEG(P|):Q=.DEG|
|00000df0| 28 51 29 3a f4 20 20 20 | 20 20 20 20 20 20 20 20 |(Q):. | |
|00000e00| 20 20 20 20 20 20 20 20 | 20 41 6c 74 2f 41 7a 20 | | Alt/Az |
|00000e10| 6f 66 20 70 6c 61 6e 65 | 74 20 61 74 20 53 75 6e |of plane|t at Sun|
|00000e20| 73 65 74 0d 04 4c 23 20 | 41 5a 73 75 6e 73 65 74 |set..L# |AZsunset|
|00000e30| 28 44 51 29 3d 58 3a 41 | 4c 54 73 75 6e 73 65 74 |(DQ)=X:A|LTsunset|
|00000e40| 28 44 51 29 3d 51 0d 04 | 56 06 20 3a 0d 04 60 17 |(DQ)=Q..|V. :..`.|
|00000e50| 20 46 4c 41 47 28 29 3d | 30 3a 46 4c 41 47 28 30 | FLAG()=|0:FLAG(0|
|00000e60| 29 3d 31 0d 04 6a 06 20 | 3a 0d 04 74 20 20 54 49 |)=1..j. |:..t TI|
|00000e70| 4d 3d 30 3a 53 57 32 3d | 2d 31 3a f2 47 74 69 6d |M=0:SW2=|-1:.Gtim|
|00000e80| 65 3a 47 53 54 3d 47 54 | 4d 0d 04 7e 1e 20 58 3d |e:GST=GT|M..~. X=|
|00000e90| a4 44 45 47 28 4c 41 4d | 28 44 51 29 2f 31 35 29 |.DEG(LAM|(DQ)/15)|
|00000ea0| 3a f2 48 72 61 6e 67 0d | 04 88 22 20 58 3d a4 52 |:.Hrang.|.." X=.R|
|00000eb0| 41 44 28 50 29 2a 31 35 | 3a 59 3d 42 45 54 28 44 |AD(P)*15|:Y=BET(D|
|00000ec0| 51 29 3a f2 45 71 68 6f | 72 0d 04 92 49 20 58 3d |Q):.Eqho|r...I X=|
|00000ed0| a4 44 45 47 28 50 29 3a | 51 3d a4 44 45 47 28 51 |.DEG(P):|Q=.DEG(Q|
|00000ee0| 29 3a f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |):. | |
|00000ef0| 20 20 20 20 20 20 41 6c | 74 2f 41 7a 20 6f 66 20 | Al|t/Az of |
|00000f00| 70 6c 61 6e 65 74 20 61 | 74 20 4d 69 64 6e 69 67 |planet a|t Midnig|
|00000f10| 68 74 0d 04 9c 27 20 41 | 5a 6d 69 64 6e 69 67 68 |ht...' A|Zmidnigh|
|00000f20| 74 28 44 51 29 3d 58 3a | 41 4c 54 6d 69 64 6e 69 |t(DQ)=X:|ALTmidni|
|00000f30| 67 68 74 28 44 51 29 3d | 51 0d 04 a6 06 20 3a 0d |ght(DQ)=|Q.... :.|
|00000f40| 04 b0 17 20 46 4c 41 47 | 28 29 3d 30 3a 46 4c 41 |... FLAG|()=0:FLA|
|00000f50| 47 28 30 29 3d 31 0d 04 | ba 06 20 3a 0d 04 c4 25 |G(0)=1..|.. :...%|
|00000f60| 20 54 49 4d 3d 48 53 52 | 28 44 51 29 3a 53 57 32 | TIM=HSR|(DQ):SW2|
|00000f70| 3d 31 3a f2 47 74 69 6d | 65 3a 47 53 54 3d 47 54 |=1:.Gtim|e:GST=GT|
|00000f80| 4d 0d 04 ce 1e 20 58 3d | a4 44 45 47 28 4c 41 4d |M.... X=|.DEG(LAM|
|00000f90| 28 44 51 29 2f 31 35 29 | 3a f2 48 72 61 6e 67 0d |(DQ)/15)|:.Hrang.|
|00000fa0| 04 d8 22 20 58 3d a4 52 | 41 44 28 50 29 2a 31 35 |.." X=.R|AD(P)*15|
|00000fb0| 3a 59 3d 42 45 54 28 44 | 51 29 3a f2 45 71 68 6f |:Y=BET(D|Q):.Eqho|
|00000fc0| 72 0d 04 e2 49 20 58 3d | a4 44 45 47 28 50 29 3a |r...I X=|.DEG(P):|
|00000fd0| 51 3d a4 44 45 47 28 51 | 29 3a f4 20 20 20 20 20 |Q=.DEG(Q|):. |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|00000ff0| 6c 74 2f 41 7a 20 6f 66 | 20 70 6c 61 6e 65 74 20 |lt/Az of| planet |
|00001000| 61 74 20 53 75 6e 72 69 | 73 65 0d 04 ec 25 20 41 |at Sunri|se...% A|
|00001010| 5a 73 75 6e 72 69 73 65 | 28 44 51 29 3d 58 3a 41 |Zsunrise|(DQ)=X:A|
|00001020| 4c 54 73 75 6e 72 69 73 | 65 28 44 51 29 3d 51 0d |LTsunris|e(DQ)=Q.|
|00001030| 04 f6 06 20 3a 0d 05 00 | 09 20 ed 20 44 51 0d 05 |... :...|. . DQ..|
|00001040| 0a 06 20 3a 0d 05 14 31 | 20 e3 4a 3d 31 b8 50 51 |.. :...1| .J=1.PQ|
|00001050| 3a 61 25 21 28 4a 2a 38 | 2d 34 29 3d 4a 3a 61 25 |:a%!(J*8|-4)=J:a%|
|00001060| 21 28 4a 2a 38 29 3d a8 | 28 45 4c 28 4a 29 2a 31 |!(J*8)=.|(EL(J)*1|
|00001070| 45 36 29 3a ed 0d 05 1e | 0a 20 41 25 3d 61 25 0d |E6):....|. A%=a%.|
|00001080| 05 28 09 20 42 25 3d 31 | 0d 05 32 0a 20 43 25 3d |.(. B%=1|..2. C%=|
|00001090| 50 51 0d 05 3c 48 20 d6 | 20 71 73 6f 72 74 3a f4 |PQ..<H .| qsort:.|
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000010c0| 20 20 20 20 20 53 6f 72 | 74 69 6e 67 20 62 79 20 | Sor|ting by |
|000010d0| 65 6c 6f 6e 67 61 74 69 | 6f 6e 0d 05 46 06 20 3a |elongati|on..F. :|
|000010e0| 0d 05 50 21 20 e3 4a 3d | 31 b8 50 51 3a 45 4c 28 |..P! .J=|1.PQ:EL(|
|000010f0| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 45 36 3a |J)=a%!(J|*8)/1E6:|
|00001100| ed 0d 05 5a 1d 20 45 4c | 6d 61 78 3d 45 4c 28 50 |...Z. EL|max=EL(P|
|00001110| 51 29 3a 45 4c 6d 69 6e | 3d 45 4c 28 31 29 0d 05 |Q):ELmin|=EL(1)..|
|00001120| 64 38 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |d8 .J=1.|PQ:SP(J)|
|00001130| 3d 44 41 54 45 28 61 25 | 21 28 4a 2a 38 2d 34 29 |=DATE(a%|!(J*8-4)|
|00001140| 29 3a ed 3a 44 41 54 45 | 28 29 3d 53 50 28 29 3a |):.:DATE|()=SP():|
|00001150| 53 50 28 29 3d 30 0d 05 | 6e 3a 20 e3 4a 3d 31 b8 |SP()=0..|n: .J=1.|
|00001160| 50 51 3a 53 50 28 4a 29 | 3d 44 41 54 45 41 28 61 |PQ:SP(J)|=DATEA(a|
|00001170| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 44 41 54 |%!(J*8-4|)):.:DAT|
|00001180| 45 41 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |EA()=SP(|):SP()=0|
|00001190| 0d 05 78 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..x6 .J=|1.PQ:SP(|
|000011a0| 4a 29 3d 4c 41 4d 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=LAM(a|%!(J*8-4|
|000011b0| 29 29 3a ed 3a 4c 41 4d | 28 29 3d 53 50 28 29 3a |)):.:LAM|()=SP():|
|000011c0| 53 50 28 29 3d 30 0d 05 | 82 38 20 e3 4a 3d 31 b8 |SP()=0..|.8 .J=1.|
|000011d0| 50 51 3a 53 50 28 4a 29 | 3d 4c 41 4d 42 28 61 25 |PQ:SP(J)|=LAMB(a%|
|000011e0| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 4c 41 4d 42 |!(J*8-4)|):.:LAMB|
|000011f0| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 05 |()=SP():|SP()=0..|
|00001200| 8c 36 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.6 .J=1.|PQ:SP(J)|
|00001210| 3d 42 45 54 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |=BET(a%!|(J*8-4))|
|00001220| 3a ed 3a 42 45 54 28 29 | 3d 53 50 28 29 3a 53 50 |:.:BET()|=SP():SP|
|00001230| 28 29 3d 30 0d 05 96 38 | 20 e3 4a 3d 31 b8 50 51 |()=0...8| .J=1.PQ|
|00001240| 3a 53 50 28 4a 29 3d 42 | 45 54 42 28 61 25 21 28 |:SP(J)=B|ETB(a%!(|
|00001250| 4a 2a 38 2d 34 29 29 3a | ed 3a 42 45 54 42 28 29 |J*8-4)):|.:BETB()|
|00001260| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 05 a0 36 |=SP():SP|()=0...6|
|00001270| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 48 | .J=1.PQ|:SP(J)=H|
|00001280| 53 53 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |SS(a%!(J|*8-4)):.|
|00001290| 3a 48 53 53 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |:HSS()=S|P():SP()|
|000012a0| 3d 30 0d 05 aa 36 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...6 .|J=1.PQ:S|
|000012b0| 50 28 4a 29 3d 48 53 52 | 28 61 25 21 28 4a 2a 38 |P(J)=HSR|(a%!(J*8|
|000012c0| 2d 34 29 29 3a ed 3a 48 | 53 52 28 29 3d 53 50 28 |-4)):.:H|SR()=SP(|
|000012d0| 29 3a 53 50 28 29 3d 30 | 0d 05 b4 40 20 e3 4a 3d |):SP()=0|...@ .J=|
|000012e0| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 41 5a 73 75 6e |1.PQ:SP(|J)=AZsun|
|000012f0| 73 65 74 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |set(a%!(|J*8-4)):|
|00001300| ed 3a 41 5a 73 75 6e 73 | 65 74 28 29 3d 53 50 28 |.:AZsuns|et()=SP(|
|00001310| 29 3a 53 50 28 29 3d 30 | 0d 05 be 44 20 e3 4a 3d |):SP()=0|...D .J=|
|00001320| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 41 5a 6d 69 64 |1.PQ:SP(|J)=AZmid|
|00001330| 6e 69 67 68 74 28 61 25 | 21 28 4a 2a 38 2d 34 29 |night(a%|!(J*8-4)|
|00001340| 29 3a ed 3a 41 5a 6d 69 | 64 6e 69 67 68 74 28 29 |):.:AZmi|dnight()|
|00001350| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 05 c8 42 |=SP():SP|()=0...B|
|00001360| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 41 | .J=1.PQ|:SP(J)=A|
|00001370| 5a 73 75 6e 72 69 73 65 | 28 61 25 21 28 4a 2a 38 |Zsunrise|(a%!(J*8|
|00001380| 2d 34 29 29 3a ed 3a 41 | 5a 73 75 6e 72 69 73 65 |-4)):.:A|Zsunrise|
|00001390| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 05 |()=SP():|SP()=0..|
|000013a0| d2 42 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.B .J=1.|PQ:SP(J)|
|000013b0| 3d 41 4c 54 73 75 6e 73 | 65 74 28 61 25 21 28 4a |=ALTsuns|et(a%!(J|
|000013c0| 2a 38 2d 34 29 29 3a ed | 3a 41 4c 54 73 75 6e 73 |*8-4)):.|:ALTsuns|
|000013d0| 65 74 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |et()=SP(|):SP()=0|
|000013e0| 0d 05 dc 46 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...F .J=|1.PQ:SP(|
|000013f0| 4a 29 3d 41 4c 54 6d 69 | 64 6e 69 67 68 74 28 61 |J)=ALTmi|dnight(a|
|00001400| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 41 4c 54 |%!(J*8-4|)):.:ALT|
|00001410| 6d 69 64 6e 69 67 68 74 | 28 29 3d 53 50 28 29 3a |midnight|()=SP():|
|00001420| 53 50 28 29 3d 30 0d 05 | e6 44 20 e3 4a 3d 31 b8 |SP()=0..|.D .J=1.|
|00001430| 50 51 3a 53 50 28 4a 29 | 3d 41 4c 54 73 75 6e 72 |PQ:SP(J)|=ALTsunr|
|00001440| 69 73 65 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |ise(a%!(|J*8-4)):|
|00001450| ed 3a 41 4c 54 73 75 6e | 72 69 73 65 28 29 3d 53 |.:ALTsun|rise()=S|
|00001460| 50 28 29 3a 53 50 28 29 | 3d 30 0d 05 f0 06 20 3a |P():SP()|=0.... :|
|00001470| 0d 05 fa 47 20 44 4a 44 | 3d 44 41 54 45 28 50 51 |...G DJD|=DATE(PQ|
|00001480| 29 3a 46 4c 41 47 28 32 | 29 3d 30 3a f2 43 61 6c |):FLAG(2|)=0:.Cal|
|00001490| 64 61 79 3a f4 20 20 20 | 20 20 20 20 20 20 20 20 |day:. | |
|000014a0| 20 44 61 74 65 20 6f 66 | 20 6d 61 78 20 65 6c 6f | Date of| max elo|
|000014b0| 6e 67 61 74 69 6f 6e 0d | 06 04 1f 20 58 44 3d 44 |ngation.|... XD=D|
|000014c0| 59 3a 58 4d 3d 4d 4e 3a | 58 53 3d 59 52 3a f2 53 |Y:XM=MN:|XS=YR:.S|
|000014d0| 74 72 69 6e 67 73 0d 06 | 0e 22 20 44 59 45 4c 24 |trings..|." DYEL$|
|000014e0| 3d 58 44 24 3a 4d 4e 45 | 4c 24 3d 58 4d 24 3a 59 |=XD$:MNE|L$=XM$:Y|
|000014f0| 52 45 4c 24 3d 58 53 24 | 0d 06 18 06 20 3a 0d 06 |REL$=XS$|.... :..|
|00001500| 22 25 20 58 3d 48 53 52 | 28 50 51 29 3a 53 57 31 |"% X=HSR|(PQ):SW1|
|00001510| 3d 31 3a f2 4d 69 6e 73 | 65 63 3a f2 53 74 72 69 |=1:.Mins|ec:.Stri|
|00001520| 6e 67 73 0d 06 2c 4a 20 | 48 52 24 3d 58 44 24 3a |ngs..,J |HR$=XD$:|
|00001530| 4d 52 24 3d 58 4d 24 3a | 53 52 24 3d 58 53 24 3a |MR$=XM$:|SR$=XS$:|
|00001540| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001560| 20 20 20 20 20 20 53 75 | 6e 72 69 73 65 0d 06 36 | Su|nrise..6|
|00001570| 25 20 58 3d 48 53 53 28 | 50 51 29 3a 53 57 31 3d |% X=HSS(|PQ):SW1=|
|00001580| 31 3a f2 4d 69 6e 73 65 | 63 3a f2 53 74 72 69 6e |1:.Minse|c:.Strin|
|00001590| 67 73 0d 06 40 4a 20 48 | 53 24 3d 58 44 24 3a 4d |gs..@J H|S$=XD$:M|
|000015a0| 53 24 3d 58 4d 24 3a 53 | 53 24 3d 58 53 24 3a f4 |S$=XM$:S|S$=XS$:.|
|000015b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015d0| 20 20 20 20 20 20 53 75 | 6e 73 65 74 0d 06 4a 06 | Su|nset..J.|
|000015e0| 20 3a 0d 06 54 2b 20 58 | 3d 41 5a 73 75 6e 72 69 | :..T+ X|=AZsunri|
|000015f0| 73 65 28 50 51 29 3a 53 | 57 31 3d 31 3a f2 4d 69 |se(PQ):S|W1=1:.Mi|
|00001600| 6e 73 65 63 3a f2 53 74 | 72 69 6e 67 73 0d 06 5e |nsec:.St|rings..^|
|00001610| 35 20 41 5a 78 64 48 53 | 52 6d 61 78 24 3d 58 44 |5 AZxdHS|Rmax$=XD|
|00001620| 24 3a 41 5a 78 6d 48 53 | 52 6d 61 78 24 3d 58 4d |$:AZxmHS|Rmax$=XM|
|00001630| 24 3a 41 5a 73 65 63 48 | 53 52 6d 61 78 24 3d 58 |$:AZsecH|SRmax$=X|
|00001640| 53 24 0d 06 68 2c 20 58 | 3d 41 4c 54 73 75 6e 72 |S$..h, X|=ALTsunr|
|00001650| 69 73 65 28 50 51 29 3a | 53 57 31 3d 31 3a f2 4d |ise(PQ):|SW1=1:.M|
|00001660| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 0d 06 |insec:.S|trings..|
|00001670| 72 41 20 53 48 53 52 24 | 3d 53 24 3a 41 4c 54 78 |rA SHSR$|=S$:ALTx|
|00001680| 64 48 53 52 6d 61 78 24 | 3d 58 44 24 3a 41 4c 54 |dHSRmax$|=XD$:ALT|
|00001690| 78 6d 48 53 52 6d 61 78 | 24 3d 58 4d 24 3a 41 4c |xmHSRmax|$=XM$:AL|
|000016a0| 54 73 65 63 48 53 52 6d | 61 78 24 3d 58 53 24 0d |TsecHSRm|ax$=XS$.|
|000016b0| 06 7c 2a 20 58 3d 41 5a | 73 75 6e 73 65 74 28 50 |.|* X=AZ|sunset(P|
|000016c0| 51 29 3a 53 57 31 3d 31 | 3a f2 4d 69 6e 73 65 63 |Q):SW1=1|:.Minsec|
|000016d0| 3a f2 53 74 72 69 6e 67 | 73 0d 06 86 35 20 41 5a |:.String|s...5 AZ|
|000016e0| 78 64 48 53 53 6d 61 78 | 24 3d 58 44 24 3a 41 5a |xdHSSmax|$=XD$:AZ|
|000016f0| 78 6d 48 53 53 6d 61 78 | 24 3d 58 4d 24 3a 41 5a |xmHSSmax|$=XM$:AZ|
|00001700| 73 65 63 48 53 53 6d 61 | 78 24 3d 58 53 24 0d 06 |secHSSma|x$=XS$..|
|00001710| 90 2b 20 58 3d 41 4c 54 | 73 75 6e 73 65 74 28 50 |.+ X=ALT|sunset(P|
|00001720| 51 29 3a 53 57 31 3d 31 | 3a f2 4d 69 6e 73 65 63 |Q):SW1=1|:.Minsec|
|00001730| 3a f2 53 74 72 69 6e 67 | 73 0d 06 9a 41 20 53 48 |:.String|s...A SH|
|00001740| 53 53 24 3d 53 24 3a 41 | 4c 54 78 64 48 53 53 6d |SS$=S$:A|LTxdHSSm|
|00001750| 61 78 24 3d 58 44 24 3a | 41 4c 54 78 6d 48 53 53 |ax$=XD$:|ALTxmHSS|
|00001760| 6d 61 78 24 3d 58 4d 24 | 3a 41 4c 54 73 65 63 48 |max$=XM$|:ALTsecH|
|00001770| 53 53 6d 61 78 24 3d 58 | 53 24 0d 06 a4 06 20 3a |SSmax$=X|S$.... :|
|00001780| 0d 06 ae 10 20 f2 45 6c | 6f 6e 67 61 74 69 6f 6e |.... .El|ongation|
|00001790| 0d 06 b8 06 20 3a 0d 06 | c2 39 20 e3 4a 3d 31 b8 |.... :..|.9 .J=1.|
|000017a0| 50 51 3a 61 25 21 28 4a | 2a 38 29 3d a8 28 41 4c |PQ:a%!(J|*8)=.(AL|
|000017b0| 54 73 75 6e 72 69 73 65 | 28 4a 29 2a 31 45 36 29 |Tsunrise|(J)*1E6)|
|000017c0| 3a 61 25 21 28 4a 2a 38 | 2d 34 29 3d 4a 3a ed 0d |:a%!(J*8|-4)=J:..|
|000017d0| 06 cc 0a 20 41 25 3d 61 | 25 0d 06 d6 09 20 42 25 |... A%=a|%.... B%|
|000017e0| 3d 31 0d 06 e0 0a 20 43 | 25 3d 50 51 0d 06 ea 46 |=1.... C|%=PQ...F|
|000017f0| 20 d6 20 71 73 6f 72 74 | 3a f4 20 20 20 20 20 20 | . qsort|:. |
|00001800| 20 20 20 20 20 20 20 20 | 20 20 53 6f 72 74 69 6e | | Sortin|
|00001810| 67 20 62 79 20 61 6c 74 | 69 74 75 64 65 20 6f 66 |g by alt|itude of|
|00001820| 20 70 6c 61 6e 65 74 20 | 61 74 20 73 75 6e 72 69 | planet |at sunri|
|00001830| 73 65 0d 06 f4 06 20 3a | 0d 06 fe 29 20 e3 4a 3d |se.... :|...) .J=|
|00001840| 31 b8 50 51 3a 41 4c 54 | 73 75 6e 72 69 73 65 28 |1.PQ:ALT|sunrise(|
|00001850| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 45 36 3a |J)=a%!(J|*8)/1E6:|
|00001860| ed 0d 07 08 3d 20 41 4c | 54 73 75 6e 72 69 73 65 |....= AL|Tsunrise|
|00001870| 6d 61 78 3d 41 4c 54 73 | 75 6e 72 69 73 65 28 50 |max=ALTs|unrise(P|
|00001880| 51 29 3a 41 4c 54 73 75 | 6e 72 69 73 65 6d 69 6e |Q):ALTsu|nrisemin|
|00001890| 3d 41 4c 54 73 75 6e 72 | 69 73 65 28 31 29 0d 07 |=ALTsunr|ise(1)..|
|000018a0| 12 34 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.4 .J=1.|PQ:SP(J)|
|000018b0| 3d 45 4c 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |=EL(a%!(|J*8-4)):|
|000018c0| ed 3a 45 4c 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |.:EL()=S|P():SP()|
|000018d0| 3d 30 0d 07 1c 46 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0...F .|J=1.PQ:S|
|000018e0| 50 28 4a 29 3d 41 4c 54 | 6d 69 64 6e 69 67 68 74 |P(J)=ALT|midnight|
|000018f0| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|00001900| 4c 54 6d 69 64 6e 69 67 | 68 74 28 29 3d 53 50 28 |LTmidnig|ht()=SP(|
|00001910| 29 3a 53 50 28 29 3d 30 | 0d 07 26 38 20 e3 4a 3d |):SP()=0|..&8 .J=|
|00001920| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 44 41 54 45 28 |1.PQ:SP(|J)=DATE(|
|00001930| 61 25 21 28 4a 2a 38 2d | 34 29 29 3a ed 3a 44 41 |a%!(J*8-|4)):.:DA|
|00001940| 54 45 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |TE()=SP(|):SP()=0|
|00001950| 0d 07 30 42 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..0B .J=|1.PQ:SP(|
|00001960| 4a 29 3d 41 5a 73 75 6e | 72 69 73 65 28 61 25 21 |J)=AZsun|rise(a%!|
|00001970| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 41 5a 73 75 6e |(J*8-4))|:.:AZsun|
|00001980| 72 69 73 65 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |rise()=S|P():SP()|
|00001990| 3d 30 0d 07 3a 36 20 e3 | 4a 3d 31 b8 50 51 3a 53 |=0..:6 .|J=1.PQ:S|
|000019a0| 50 28 4a 29 3d 48 53 52 | 28 61 25 21 28 4a 2a 38 |P(J)=HSR|(a%!(J*8|
|000019b0| 2d 34 29 29 3a ed 3a 48 | 53 52 28 29 3d 53 50 28 |-4)):.:H|SR()=SP(|
|000019c0| 29 3a 53 50 28 29 3d 30 | 0d 07 44 36 20 e3 4a 3d |):SP()=0|..D6 .J=|
|000019d0| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 4c 41 4d 28 61 |1.PQ:SP(|J)=LAM(a|
|000019e0| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 4c 41 4d |%!(J*8-4|)):.:LAM|
|000019f0| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 07 |()=SP():|SP()=0..|
|00001a00| 4e 36 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |N6 .J=1.|PQ:SP(J)|
|00001a10| 3d 42 45 54 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |=BET(a%!|(J*8-4))|
|00001a20| 3a ed 3a 42 45 54 28 29 | 3d 53 50 28 29 3a 53 50 |:.:BET()|=SP():SP|
|00001a30| 28 29 3d 30 0d 07 58 06 | 20 3a 0d 07 62 17 20 50 |()=0..X.| :..b. P|
|00001a40| 51 53 3d 41 4c 54 73 75 | 6e 72 69 73 65 28 50 51 |QS=ALTsu|nrise(PQ|
|00001a50| 29 0d 07 6c 06 20 3a 0d | 07 76 17 20 46 4c 41 47 |)..l. :.|.v. FLAG|
|00001a60| 28 29 3d 30 3a 46 4c 41 | 47 28 30 29 3d 31 0d 07 |()=0:FLA|G(0)=1..|
|00001a70| 80 06 20 3a 0d 07 8a 25 | 20 44 4a 44 3d 44 41 54 |.. :...%| DJD=DAT|
|00001a80| 45 28 50 51 29 3a 54 49 | 4d 3d 48 53 52 28 50 51 |E(PQ):TI|M=HSR(PQ|
|00001a90| 29 2d 31 3a 53 57 32 3d | 31 0d 07 94 1b 20 f2 43 |)-1:SW2=|1.... .C|
|00001aa0| 61 6c 64 61 79 3a f2 47 | 74 69 6d 65 3a 47 53 54 |alday:.G|time:GST|
|00001ab0| 3d 47 54 4d 0d 07 9e 1f | 20 58 44 3d 44 59 3a 58 |=GTM....| XD=DY:X|
|00001ac0| 4d 3d 4d 4e 3a 58 53 3d | 59 52 3a f2 53 74 72 69 |M=MN:XS=|YR:.Stri|
|00001ad0| 6e 67 73 0d 07 a8 1c 20 | 44 59 24 3d 58 44 24 3a |ngs.... |DY$=XD$:|
|00001ae0| 4d 4e 24 3d 58 4d 24 3a | 59 52 24 3d 58 53 24 0d |MN$=XM$:|YR$=XS$.|
|00001af0| 07 b2 1e 20 58 3d a4 44 | 45 47 28 4c 41 4d 28 50 |... X=.D|EG(LAM(P|
|00001b00| 51 29 2f 31 35 29 3a f2 | 48 72 61 6e 67 0d 07 bc |Q)/15):.|Hrang...|
|00001b10| 22 20 58 3d a4 52 41 44 | 28 50 29 2a 31 35 3a 59 |" X=.RAD|(P)*15:Y|
|00001b20| 3d 42 45 54 28 50 51 29 | 3a f2 45 71 68 6f 72 0d |=BET(PQ)|:.Eqhor.|
|00001b30| 07 c6 1a 20 58 52 3d a4 | 44 45 47 28 50 29 3a 51 |... XR=.|DEG(P):Q|
|00001b40| 52 3d a4 44 45 47 28 51 | 29 0d 07 d0 06 20 3a 0d |R=.DEG(Q|).... :.|
|00001b50| 07 da 18 20 e7 41 4c 54 | 73 75 6e 72 69 73 65 28 |... .ALT|sunrise(|
|00001b60| 50 51 29 3e 30 20 8c 0d | 07 e4 41 20 f1 8a 31 32 |PQ)>0 ..|..A ..12|
|00001b70| 29 3b 22 4d 61 78 20 61 | 6c 74 69 74 75 64 65 20 |);"Max a|ltitude |
|00001b80| 61 74 20 73 75 6e 72 69 | 73 65 20 64 75 72 69 6e |at sunri|se durin|
|00001b90| 67 20 74 68 65 20 22 3b | 50 51 3b 22 20 64 61 79 |g the ";|PQ;" day|
|00001ba0| 20 70 65 72 69 6f 64 22 | 0d 07 ee 06 20 f1 0d 07 | period"|.... ...|
|00001bb0| f8 06 20 3a 0d 08 02 19 | 20 e3 4a 3d 50 51 20 b8 |.. :....| .J=PQ .|
|00001bc0| 20 41 4c 54 74 61 62 6c | 65 20 88 2d 31 0d 08 0c | ALTtabl|e .-1...|
|00001bd0| 3d 20 46 4c 41 47 28 32 | 29 3d 30 3a 44 4a 44 3d |= FLAG(2|)=0:DJD=|
|00001be0| 44 41 54 45 28 4a 29 3a | f2 43 61 6c 64 61 79 3a |DATE(J):|.Calday:|
|00001bf0| 58 44 3d 44 59 3a 58 4d | 3d 4d 4e 3a 58 53 3d 59 |XD=DY:XM|=MN:XS=Y|
|00001c00| 52 3a f2 53 74 72 69 6e | 67 73 0d 08 16 1c 20 44 |R:.Strin|gs.... D|
|00001c10| 59 24 3d 58 44 24 3a 4d | 4e 24 3d 58 4d 24 3a 59 |Y$=XD$:M|N$=XM$:Y|
|00001c20| 52 24 3d 58 53 24 0d 08 | 20 24 20 53 57 31 3d 31 |R$=XS$..| $ SW1=1|
|00001c30| 3a 58 3d 48 53 52 28 4a | 29 3a f2 4d 69 6e 73 65 |:X=HSR(J|):.Minse|
|00001c40| 63 3a f2 53 74 72 69 6e | 67 73 0d 08 2a 56 20 f1 |c:.Strin|gs..*V .|
|00001c50| 8a 39 29 3b 22 50 6c 61 | 6e 65 74 20 61 6c 74 69 |.9);"Pla|net alti|
|00001c60| 74 75 64 65 20 61 74 20 | 22 3b 58 44 24 3b 22 3a |tude at |";XD$;":|
|00001c70| 22 3b 58 4d 24 3b 22 3a | 22 3b 58 53 24 3b 22 20 |";XM$;":|";XS$;" |
|00001c80| 6f 6e 20 22 3b 44 59 24 | 3b 22 2f 22 3b 4d 4e 24 |on ";DY$|;"/";MN$|
|00001c90| 3b 22 2f 22 3b 59 52 24 | 3b 22 20 69 73 20 22 3b |;"/";YR$|;" is ";|
|00001ca0| 0d 08 34 45 20 53 57 31 | 3d 31 3a 58 3d 41 4c 54 |..4E SW1|=1:X=ALT|
|00001cb0| 73 75 6e 72 69 73 65 28 | 4a 29 3a f2 4d 69 6e 73 |sunrise(|J):.Mins|
|00001cc0| 65 63 3a f2 53 74 72 69 | 6e 67 73 3a f1 89 28 32 |ec:.Stri|ngs:..(2|
|00001cd0| 29 3b 58 44 24 3b 22 2c | 22 3b 58 4d 24 3b 22 2c |);XD$;",|";XM$;",|
|00001ce0| 22 3b 58 53 24 0d 08 3e | 25 20 f1 8a 33 31 29 3b |";XS$..>|% ..31);|
|00001cf0| 22 20 2e 2e 2e 61 6e 64 | 20 74 68 65 20 61 7a 69 |" ...and| the azi|
|00001d00| 6d 75 74 68 20 69 73 20 | 22 3b 0d 08 48 4f 20 53 |muth is |";..HO S|
|00001d10| 57 31 3d 31 3a 58 3d 41 | 5a 73 75 6e 72 69 73 65 |W1=1:X=A|Zsunrise|
|00001d20| 28 4a 29 3a f2 4d 69 6e | 73 65 63 3a f2 53 74 72 |(J):.Min|sec:.Str|
|00001d30| 69 6e 67 73 3a f1 89 28 | 32 2d 28 a9 28 58 44 24 |ings:..(|2-(.(XD$|
|00001d40| 29 2d 32 29 29 3b 58 44 | 24 3b 22 2c 22 3b 58 4d |)-2));XD|$;",";XM|
|00001d50| 24 3b 22 2c 22 3b 58 53 | 24 0d 08 52 06 20 f1 0d |$;",";XS|$..R. ..|
|00001d60| 08 5c 08 20 ed 20 4a 0d | 08 66 3e 20 46 4c 41 47 |.\. . J.|.f> FLAG|
|00001d70| 28 32 29 3d 30 3a 44 4a | 44 3d 44 41 54 45 28 50 |(2)=0:DJ|D=DATE(P|
|00001d80| 51 29 3a f2 43 61 6c 64 | 61 79 3a 58 44 3d 44 59 |Q):.Cald|ay:XD=DY|
|00001d90| 3a 58 4d 3d 4d 4e 3a 58 | 53 3d 59 52 3a f2 53 74 |:XM=MN:X|S=YR:.St|
|00001da0| 72 69 6e 67 73 0d 08 70 | 1c 20 44 59 24 3d 58 44 |rings..p|. DY$=XD|
|00001db0| 24 3a 4d 4e 24 3d 58 4d | 24 3a 59 52 24 3d 58 53 |$:MN$=XM|$:YR$=XS|
|00001dc0| 24 0d 08 7a 4b 20 f1 27 | 8a 36 29 3b 22 41 6c 74 |$..zK .'|.6);"Alt|
|00001dd0| 69 74 75 64 65 20 31 20 | 68 6f 75 72 20 62 65 66 |itude 1 |hour bef|
|00001de0| 6f 72 65 20 73 75 6e 72 | 69 73 65 20 6f 6e 20 22 |ore sunr|ise on "|
|00001df0| 3b 44 59 24 3b 22 2f 22 | 3b 4d 4e 24 3b 22 2f 22 |;DY$;"/"|;MN$;"/"|
|00001e00| 3b 59 52 24 3b 22 20 69 | 73 20 22 3b 0d 08 84 28 |;YR$;" i|s ";...(|
|00001e10| 20 53 57 31 3d 31 3a 58 | 3d 51 52 3a 58 43 24 3d | SW1=1:X|=QR:XC$=|
|00001e20| 22 2c 22 3a f2 4d 69 6e | 73 65 63 3a f2 53 74 72 |",":.Min|sec:.Str|
|00001e30| 69 6e 67 73 0d 08 8e 3c | 20 e7 20 53 24 3d 22 2d |ings...<| . S$="-|
|00001e40| 22 20 8c 20 58 44 24 3d | 22 62 65 6c 6f 77 20 74 |" . XD$=|"below t|
|00001e50| 68 65 20 68 6f 72 69 7a | 6f 6e 22 3a 58 4d 24 3d |he horiz|on":XM$=|
|00001e60| 22 22 3a 58 53 24 3d 22 | 22 3a 58 43 24 3d 22 22 |"":XS$="|":XC$=""|
|00001e70| 0d 08 98 1e 20 f1 89 28 | 32 29 3b 58 44 24 3b 58 |.... ..(|2);XD$;X|
|00001e80| 43 24 3b 58 4d 24 3b 58 | 43 24 3b 58 53 24 0d 08 |C$;XM$;X|C$;XS$..|
|00001e90| a2 20 20 53 57 31 3d 31 | 3a 58 3d 58 52 3a f2 4d |. SW1=1|:X=XR:.M|
|00001ea0| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 0d 08 |insec:.S|trings..|
|00001eb0| ac 25 20 f1 8a 33 31 29 | 3b 22 20 2e 2e 2e 61 6e |.% ..31)|;" ...an|
|00001ec0| 64 20 74 68 65 20 61 7a | 69 6d 75 74 68 20 69 73 |d the az|imuth is|
|00001ed0| 20 22 3b 0d 08 b6 29 20 | f1 89 28 32 2d 28 a9 28 | ";...) |..(2-(.(|
|00001ee0| 58 44 24 29 2d 32 29 29 | 3b 58 44 24 3b 22 2c 22 |XD$)-2))|;XD$;","|
|00001ef0| 3b 58 4d 24 3b 22 2c 22 | 3b 58 53 24 0d 08 c0 06 |;XM$;","|;XS$....|
|00001f00| 20 cd 0d 08 ca 06 20 f1 | 0d 08 d4 06 20 3a 0d 08 | ..... .|.... :..|
|00001f10| de 38 20 e3 4a 3d 31 b8 | 50 51 3a 61 25 21 28 4a |.8 .J=1.|PQ:a%!(J|
|00001f20| 2a 38 29 3d a8 28 41 4c | 54 73 75 6e 73 65 74 28 |*8)=.(AL|Tsunset(|
|00001f30| 4a 29 2a 31 45 36 29 3a | 61 25 21 28 4a 2a 38 2d |J)*1E6):|a%!(J*8-|
|00001f40| 34 29 3d 4a 3a ed 0d 08 | e8 0a 20 41 25 3d 61 25 |4)=J:...|.. A%=a%|
|00001f50| 0d 08 f2 09 20 42 25 3d | 31 0d 08 fc 0a 20 43 25 |.... B%=|1.... C%|
|00001f60| 3d 50 51 0d 09 06 47 20 | d6 20 71 73 6f 72 74 3a |=PQ...G |. qsort:|
|00001f70| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001f80| 20 20 20 53 6f 72 74 69 | 6e 67 20 62 79 20 61 6c | Sorti|ng by al|
|00001f90| 74 69 74 75 64 65 20 6f | 66 20 70 6c 61 6e 65 74 |titude o|f planet|
|00001fa0| 20 61 74 20 73 75 6e 73 | 65 74 0d 09 10 06 20 3a | at suns|et.... :|
|00001fb0| 0d 09 1a 28 20 e3 4a 3d | 31 b8 50 51 3a 41 4c 54 |...( .J=|1.PQ:ALT|
|00001fc0| 73 75 6e 73 65 74 28 4a | 29 3d 61 25 21 28 4a 2a |sunset(J|)=a%!(J*|
|00001fd0| 38 29 2f 31 45 36 3a ed | 0d 09 24 39 20 41 4c 54 |8)/1E6:.|..$9 ALT|
|00001fe0| 73 75 6e 73 65 74 6d 61 | 78 3d 41 4c 54 73 75 6e |sunsetma|x=ALTsun|
|00001ff0| 73 65 74 28 50 51 29 3a | 41 4c 54 73 75 6e 73 65 |set(PQ):|ALTsunse|
|00002000| 74 6d 69 6e 3d 41 4c 54 | 73 75 6e 73 65 74 28 31 |tmin=ALT|sunset(1|
|00002010| 29 0d 09 2e 3a 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |)...: .J|=1.PQ:SP|
|00002020| 28 4a 29 3d 44 41 54 45 | 41 28 61 25 21 28 4a 2a |(J)=DATE|A(a%!(J*|
|00002030| 38 2d 34 29 29 3a ed 3a | 44 41 54 45 41 28 29 3d |8-4)):.:|DATEA()=|
|00002040| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 09 38 40 20 |SP():SP(|)=0..8@ |
|00002050| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 41 5a |.J=1.PQ:|SP(J)=AZ|
|00002060| 73 75 6e 73 65 74 28 61 | 25 21 28 4a 2a 38 2d 34 |sunset(a|%!(J*8-4|
|00002070| 29 29 3a ed 3a 41 5a 73 | 75 6e 73 65 74 28 29 3d |)):.:AZs|unset()=|
|00002080| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 09 42 36 20 |SP():SP(|)=0..B6 |
|00002090| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 48 53 |.J=1.PQ:|SP(J)=HS|
|000020a0| 53 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |S(a%!(J*|8-4)):.:|
|000020b0| 48 53 53 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |HSS()=SP|():SP()=|
|000020c0| 30 0d 09 4c 38 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0..L8 .J|=1.PQ:SP|
|000020d0| 28 4a 29 3d 4c 41 4d 42 | 28 61 25 21 28 4a 2a 38 |(J)=LAMB|(a%!(J*8|
|000020e0| 2d 34 29 29 3a ed 3a 4c | 41 4d 42 28 29 3d 53 50 |-4)):.:L|AMB()=SP|
|000020f0| 28 29 3a 53 50 28 29 3d | 30 0d 09 56 38 20 e3 4a |():SP()=|0..V8 .J|
|00002100| 3d 31 b8 50 51 3a 53 50 | 28 4a 29 3d 42 45 54 42 |=1.PQ:SP|(J)=BETB|
|00002110| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 42 |(a%!(J*8|-4)):.:B|
|00002120| 45 54 42 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |ETB()=SP|():SP()=|
|00002130| 30 0d 09 60 06 20 3a 0d | 09 6a 2b 20 e7 20 41 4c |0..`. :.|.j+ . AL|
|00002140| 54 73 75 6e 73 65 74 28 | 50 51 29 3e 30 20 80 20 |Tsunset(|PQ)>0 . |
|00002150| 41 4c 54 73 75 6e 72 69 | 73 65 28 50 51 29 3e 30 |ALTsunri|se(PQ)>0|
|00002160| 20 8c 0d 09 74 54 20 f1 | 3a f1 22 2d 2d 2d 2d 2d | ...tT .|:."-----|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000021b0| 2d 2d 2d 2d 2d 22 0d 09 | 7e 25 20 f1 22 50 72 65 |-----"..|~% ."Pre|
|000021c0| 73 73 20 6b 65 79 20 74 | 6f 20 73 65 65 20 53 75 |ss key t|o see Su|
|000021d0| 6e 73 65 74 20 74 61 62 | 6c 65 22 0d 09 88 0a 20 |nset tab|le".... |
|000021e0| 6b 65 79 3d a5 0d 09 92 | 06 20 db 0d 09 9c 10 20 |key=....|. ..... |
|000021f0| f2 45 6c 6f 6e 67 61 74 | 69 6f 6e 0d 09 a6 06 20 |.Elongat|ion.... |
|00002200| cd 0d 09 b0 06 20 3a 0d | 09 ba 17 20 46 4c 41 47 |..... :.|... FLAG|
|00002210| 28 29 3d 30 3a 46 4c 41 | 47 28 30 29 3d 31 0d 09 |()=0:FLA|G(0)=1..|
|00002220| c4 06 20 3a 0d 09 ce 26 | 20 44 4a 44 3d 44 41 54 |.. :...&| DJD=DAT|
|00002230| 45 41 28 50 51 29 3a 54 | 49 4d 3d 48 53 53 28 50 |EA(PQ):T|IM=HSS(P|
|00002240| 51 29 2b 31 3a 53 57 32 | 3d 31 0d 09 d8 1b 20 f2 |Q)+1:SW2|=1.... .|
|00002250| 43 61 6c 64 61 79 3a f2 | 47 74 69 6d 65 3a 47 53 |Calday:.|Gtime:GS|
|00002260| 54 3d 47 54 4d 0d 09 e2 | 1f 20 58 44 3d 44 59 3a |T=GTM...|. XD=DY:|
|00002270| 58 4d 3d 4d 4e 3a 58 53 | 3d 59 52 3a f2 53 74 72 |XM=MN:XS|=YR:.Str|
|00002280| 69 6e 67 73 0d 09 ec 1c | 20 44 59 24 3d 58 44 24 |ings....| DY$=XD$|
|00002290| 3a 4d 4e 24 3d 58 4d 24 | 3a 59 52 24 3d 58 53 24 |:MN$=XM$|:YR$=XS$|
|000022a0| 0d 09 f6 1f 20 58 3d a4 | 44 45 47 28 4c 41 4d 42 |.... X=.|DEG(LAMB|
|000022b0| 28 50 51 29 2f 31 35 29 | 3a f2 48 72 61 6e 67 0d |(PQ)/15)|:.Hrang.|
|000022c0| 0a 00 23 20 58 3d a4 52 | 41 44 28 50 29 2a 31 35 |..# X=.R|AD(P)*15|
|000022d0| 3a 59 3d 42 45 54 42 28 | 50 51 29 3a f2 45 71 68 |:Y=BETB(|PQ):.Eqh|
|000022e0| 6f 72 0d 0a 0a 1c 20 58 | 52 53 3d a4 44 45 47 28 |or.... X|RS=.DEG(|
|000022f0| 50 29 3a 51 52 53 3d a4 | 44 45 47 28 51 29 0d 0a |P):QRS=.|DEG(Q)..|
|00002300| 14 06 20 3a 0d 0a 1e 17 | 20 e7 41 4c 54 73 75 6e |.. :....| .ALTsun|
|00002310| 73 65 74 28 50 51 29 3e | 30 20 8c 0d 0a 28 40 20 |set(PQ)>|0 ...(@ |
|00002320| f1 8a 31 32 29 3b 22 4d | 61 78 20 61 6c 74 69 74 |..12);"M|ax altit|
|00002330| 75 64 65 20 61 74 20 73 | 75 6e 73 65 74 20 64 75 |ude at s|unset du|
|00002340| 72 69 6e 67 20 74 68 65 | 20 22 3b 50 51 3b 22 20 |ring the| ";PQ;" |
|00002350| 64 61 79 20 70 65 72 69 | 6f 64 22 0d 0a 32 06 20 |day peri|od"..2. |
|00002360| f1 0d 0a 3c 06 20 3a 0d | 0a 46 19 20 e3 4a 3d 50 |...<. :.|.F. .J=P|
|00002370| 51 20 b8 20 41 4c 54 74 | 61 62 6c 65 20 88 2d 31 |Q . ALTt|able .-1|
|00002380| 0d 0a 50 3e 20 46 4c 41 | 47 28 32 29 3d 30 3a 44 |..P> FLA|G(2)=0:D|
|00002390| 4a 44 3d 44 41 54 45 41 | 28 4a 29 3a f2 43 61 6c |JD=DATEA|(J):.Cal|
|000023a0| 64 61 79 3a 58 44 3d 44 | 59 3a 58 4d 3d 4d 4e 3a |day:XD=D|Y:XM=MN:|
|000023b0| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 0d 0a |XS=YR:.S|trings..|
|000023c0| 5a 1c 20 44 59 24 3d 58 | 44 24 3a 4d 4e 24 3d 58 |Z. DY$=X|D$:MN$=X|
|000023d0| 4d 24 3a 59 52 24 3d 58 | 53 24 0d 0a 64 24 20 53 |M$:YR$=X|S$..d$ S|
|000023e0| 57 31 3d 31 3a 58 3d 48 | 53 53 28 4a 29 3a f2 4d |W1=1:X=H|SS(J):.M|
|000023f0| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 0d 0a |insec:.S|trings..|
|00002400| 6e 56 20 f1 8a 39 29 3b | 22 50 6c 61 6e 65 74 20 |nV ..9);|"Planet |
|00002410| 61 6c 74 69 74 75 64 65 | 20 61 74 20 22 3b 58 44 |altitude| at ";XD|
|00002420| 24 3b 22 3a 22 3b 58 4d | 24 3b 22 3a 22 3b 58 53 |$;":";XM|$;":";XS|
|00002430| 24 3b 22 20 6f 6e 20 22 | 3b 44 59 24 3b 22 2f 22 |$;" on "|;DY$;"/"|
|00002440| 3b 4d 4e 24 3b 22 2f 22 | 3b 59 52 24 3b 22 20 69 |;MN$;"/"|;YR$;" i|
|00002450| 73 20 22 3b 0d 0a 78 44 | 20 53 57 31 3d 31 3a 58 |s ";..xD| SW1=1:X|
|00002460| 3d 41 4c 54 73 75 6e 73 | 65 74 28 4a 29 3a f2 4d |=ALTsuns|et(J):.M|
|00002470| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 3a f1 |insec:.S|trings:.|
|00002480| 89 28 32 29 3b 58 44 24 | 3b 22 2c 22 3b 58 4d 24 |.(2);XD$|;",";XM$|
|00002490| 3b 22 2c 22 3b 58 53 24 | 0d 0a 82 25 20 f1 8a 33 |;",";XS$|...% ..3|
|000024a0| 31 29 3b 22 20 2e 2e 2e | 61 6e 64 20 74 68 65 20 |1);" ...|and the |
|000024b0| 61 7a 69 6d 75 74 68 20 | 69 73 20 22 3b 0d 0a 8c |azimuth |is ";...|
|000024c0| 4e 20 53 57 31 3d 31 3a | 58 3d 41 5a 73 75 6e 73 |N SW1=1:|X=AZsuns|
|000024d0| 65 74 28 4a 29 3a f2 4d | 69 6e 73 65 63 3a f2 53 |et(J):.M|insec:.S|
|000024e0| 74 72 69 6e 67 73 3a f1 | 89 28 32 2d 28 a9 28 58 |trings:.|.(2-(.(X|
|000024f0| 44 24 29 2d 32 29 29 3b | 58 44 24 3b 22 2c 22 3b |D$)-2));|XD$;",";|
|00002500| 58 4d 24 3b 22 2c 22 3b | 58 53 24 0d 0a 96 06 20 |XM$;",";|XS$.... |
|00002510| f1 0d 0a a0 08 20 ed 20 | 4a 0d 0a aa 06 20 3a 0d |..... . |J.... :.|
|00002520| 0a b4 3f 20 46 4c 41 47 | 28 32 29 3d 30 3a 44 4a |..? FLAG|(2)=0:DJ|
|00002530| 44 3d 44 41 54 45 41 28 | 50 51 29 3a f2 43 61 6c |D=DATEA(|PQ):.Cal|
|00002540| 64 61 79 3a 58 44 3d 44 | 59 3a 58 4d 3d 4d 4e 3a |day:XD=D|Y:XM=MN:|
|00002550| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 0d 0a |XS=YR:.S|trings..|
|00002560| be 1c 20 44 59 24 3d 58 | 44 24 3a 4d 4e 24 3d 58 |.. DY$=X|D$:MN$=X|
|00002570| 4d 24 3a 59 52 24 3d 58 | 53 24 0d 0a c8 49 20 f1 |M$:YR$=X|S$...I .|
|00002580| 27 8a 38 29 3b 22 41 6c | 74 69 74 75 64 65 20 31 |'.8);"Al|titude 1|
|00002590| 20 68 6f 75 72 20 61 66 | 74 65 72 20 73 75 6e 73 | hour af|ter suns|
|000025a0| 65 74 20 6f 6e 20 22 3b | 44 59 24 3b 22 2f 22 3b |et on ";|DY$;"/";|
|000025b0| 4d 4e 24 3b 22 2f 22 3b | 59 52 24 3b 22 20 69 73 |MN$;"/";|YR$;" is|
|000025c0| 20 22 3b 0d 0a d2 29 20 | 53 57 31 3d 31 3a 58 3d | ";...) |SW1=1:X=|
|000025d0| 51 52 53 3a 58 43 24 3d | 22 2c 22 3a f2 4d 69 6e |QRS:XC$=|",":.Min|
|000025e0| 73 65 63 3a f2 53 74 72 | 69 6e 67 73 0d 0a dc 06 |sec:.Str|ings....|
|000025f0| 20 3a 0d 0a e6 3a 20 e7 | 53 24 3d 22 2d 22 8c 20 | :...: .|S$="-". |
|00002600| 58 44 24 3d 22 62 65 6c | 6f 77 20 74 68 65 20 68 |XD$="bel|ow the h|
|00002610| 6f 72 69 7a 6f 6e 22 3a | 58 4d 24 3d 22 22 3a 58 |orizon":|XM$="":X|
|00002620| 53 24 3d 22 22 3a 58 43 | 24 3d 22 22 0d 0a f0 1e |S$="":XC|$=""....|
|00002630| 20 f1 89 28 32 29 3b 58 | 44 24 3b 58 43 24 3b 58 | ..(2);X|D$;XC$;X|
|00002640| 4d 24 3b 58 43 24 3b 58 | 53 24 0d 0a fa 21 20 53 |M$;XC$;X|S$...! S|
|00002650| 57 31 3d 31 3a 58 3d 58 | 52 53 3a f2 4d 69 6e 73 |W1=1:X=X|RS:.Mins|
|00002660| 65 63 3a f2 53 74 72 69 | 6e 67 73 0d 0b 04 25 20 |ec:.Stri|ngs...% |
|00002670| f1 8a 33 31 29 3b 22 20 | 2e 2e 2e 61 6e 64 20 74 |..31);" |...and t|
|00002680| 68 65 20 61 7a 69 6d 75 | 74 68 20 69 73 20 22 3b |he azimu|th is ";|
|00002690| 0d 0b 0e 29 20 f1 89 28 | 32 2d 28 a9 28 58 44 24 |...) ..(|2-(.(XD$|
|000026a0| 29 2d 32 29 29 3b 58 44 | 24 3b 22 2c 22 3b 58 4d |)-2));XD|$;",";XM|
|000026b0| 24 3b 22 2c 22 3b 58 53 | 24 0d 0b 18 06 20 cd 0d |$;",";XS|$.... ..|
|000026c0| 0b 22 06 20 f1 0d 0b 2c | 06 20 3a 0d 0b 36 07 20 |.". ...,|. :..6. |
|000026d0| ef 33 0d 0b 40 06 20 3a | 0d 0b 4a 27 20 e8 22 47 |.3..@. :|..J' ."G|
|000026e0| 72 61 70 68 20 41 6c 74 | 69 74 75 64 65 20 26 20 |raph Alt|itude & |
|000026f0| 45 6c 6f 6e 67 61 74 69 | 6f 6e 22 3b 41 4e 24 0d |Elongati|on";AN$.|
|00002700| 0b 54 12 20 e7 41 4e 24 | 3d 22 4e 22 8c 8d 54 48 |.T. .AN$|="N"..TH|
|00002710| 4c 0d 0b 5e 0c 20 f2 64 | 65 73 6f 72 74 0d 0b 68 |L..^. .d|esort..h|
|00002720| 0b 20 f2 73 63 61 6c 65 | 0d 0b 72 10 20 f2 63 68 |. .scale|..r. .ch|
|00002730| 61 72 74 73 65 74 75 70 | 0d 0b 7c 0c 20 f2 63 75 |artsetup|..|. .cu|
|00002740| 72 76 65 73 0d 0b 86 14 | 20 f1 8a 33 36 2c 33 31 |rves....| ..36,31|
|00002750| 29 3b 22 64 61 79 73 22 | 0d 0b 90 21 20 e8 8a 35 |);"days"|...! ..5|
|00002760| 30 2c 34 29 3b 22 43 61 | 6c 63 75 6c 61 74 65 20 |0,4);"Ca|lculate |
|00002770| 64 61 74 65 22 3b 41 4e | 24 0d 0b 9a 21 20 f1 8a |date";AN|$...! ..|
|00002780| 35 30 2c 34 29 3b 22 20 | 20 20 20 20 20 20 20 20 |50,4);" | |
|00002790| 20 20 20 20 20 20 20 20 | 20 22 0d 0b a4 12 20 e7 | | ".... .|
|000027a0| 41 4e 24 3d 22 4e 22 8c | 8d 64 6a 4b 0d 0b ae 27 |AN$="N".|.djK...'|
|000027b0| 20 e8 8a 35 30 2c 34 29 | 3b 22 44 61 79 20 6e 75 | ..50,4)|;"Day nu|
|000027c0| 6d 62 65 72 20 66 72 6f | 6d 20 73 63 61 6c 65 22 |mber fro|m scale"|
|000027d0| 3b 44 32 0d 0b b8 28 20 | f1 8a 35 30 2c 34 29 3b |;D2...( |..50,4);|
|000027e0| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|000027f0| 20 20 20 20 20 20 20 20 | 20 20 22 0d 0b c2 3b 20 | | "...; |
|00002800| 44 4a 44 3d 44 4a 44 31 | 2b 44 32 3a 46 4c 41 47 |DJD=DJD1|+D2:FLAG|
|00002810| 28 32 29 3d 30 3a f2 43 | 61 6c 64 61 79 3a f1 8a |(2)=0:.C|alday:..|
|00002820| 33 35 2c 34 29 3b 44 59 | 3b 22 2f 22 3b 4d 4e 3b |35,4);DY|;"/";MN;|
|00002830| 22 2f 22 3b 59 52 0d 0b | cc 2a 20 e8 8a 35 30 2c |"/";YR..|.* ..50,|
|00002840| 34 29 3b 22 41 6e 6f 74 | 68 65 72 20 64 61 74 65 |4);"Anot|her date|
|00002850| 20 20 20 20 20 20 20 20 | 20 20 20 22 3b 41 4e 24 | | ";AN$|
|00002860| 0d 0b d6 38 20 f1 8a 33 | 35 2c 34 29 3b 22 20 20 |...8 ..3|5,4);" |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002890| 20 20 20 20 20 20 20 22 | 0d 0b e0 12 20 e7 41 4e | "|.... .AN|
|000028a0| 24 3d 22 59 22 8c 8d 74 | 6e 4b 0d 0b ea 22 20 e8 |$="Y"..t|nK..." .|
|000028b0| 8a 35 30 2c 34 29 3b 22 | 52 65 76 69 65 77 20 74 |.50,4);"|Review t|
|000028c0| 61 62 6c 65 28 73 29 22 | 3b 41 4e 24 0d 0b f4 15 |able(s)"|;AN$....|
|000028d0| 20 e7 20 41 4e 24 3d 22 | 59 22 20 8c 20 8d 54 54 | . AN$="|Y" . .TT|
|000028e0| 45 0d 0b fe 09 20 db 3a | eb 30 0d 0c 08 1c 20 c8 |E.... .:|.0.... .|
|000028f0| 99 22 4f 53 5f 55 70 64 | 61 74 65 4d 45 4d 43 22 |."OS_Upd|ateMEMC"|
|00002900| 2c 2c 36 34 3a e0 0d 0c | 12 06 20 3a 0d 0c 1c 11 |,,64:...|.. :....|
|00002910| 20 dd f2 45 6c 6f 6e 67 | 61 74 69 6f 6e 0d 0c 26 | ..Elong|ation..&|
|00002920| 06 20 db 0d 0c 30 14 20 | e7 20 54 61 62 6c 65 24 |. ...0. |. Table$|
|00002930| 3d 22 59 22 20 ef 32 0d | 0c 3a 30 20 f1 27 8a 31 |="Y" .2.|.:0 .'.1|
|00002940| 30 29 3b 50 24 3b 22 20 | 66 72 6f 6d 20 22 3b 4e |0);P$;" |from ";N|
|00002950| 41 4d 45 24 3b 22 20 28 | 47 4d 54 22 3b 4b 24 3b |AME$;" (|GMT";K$;|
|00002960| 4c 37 3b 22 29 22 3b 0d | 0c 44 1f 20 44 4a 44 3d |L7;")";.|.D. DJD=|
|00002970| 44 4a 44 31 3a 46 4c 41 | 47 28 32 29 3d 30 3a f2 |DJD1:FLA|G(2)=0:.|
|00002980| 43 61 6c 64 61 79 0d 0c | 4e 37 20 58 44 3d 44 59 |Calday..|N7 XD=DY|
|00002990| 3a 58 4d 3d 4d 4e 3a 58 | 53 3d 59 52 3a f2 53 74 |:XM=MN:X|S=YR:.St|
|000029a0| 72 69 6e 67 73 3a 44 59 | 24 3d 58 44 24 3a 4d 4e |rings:DY|$=XD$:MN|
|000029b0| 24 3d 58 4d 24 3a 59 52 | 24 3d 58 53 24 0d 0c 58 |$=XM$:YR|$=XS$..X|
|000029c0| 3d 20 f1 89 28 31 29 3b | 44 59 24 3b 22 2f 22 3b |= ..(1);|DY$;"/";|
|000029d0| 4d 4e 24 3b 22 2f 22 3b | 59 52 24 3b 22 20 74 6f |MN$;"/";|YR$;" to|
|000029e0| 22 3b 3a 44 31 24 3d 44 | 59 24 3a 4d 31 24 3d 4d |";:D1$=D|Y$:M1$=M|
|000029f0| 4e 24 3a 59 31 24 3d 59 | 52 24 0d 0c 62 1f 20 44 |N$:Y1$=Y|R$..b. D|
|00002a00| 4a 44 3d 44 4a 44 32 3a | 46 4c 41 47 28 32 29 3d |JD=DJD2:|FLAG(2)=|
|00002a10| 30 3a f2 43 61 6c 64 61 | 79 0d 0c 6c 37 20 58 44 |0:.Calda|y..l7 XD|
|00002a20| 3d 44 59 3a 58 4d 3d 4d | 4e 3a 58 53 3d 59 52 3a |=DY:XM=M|N:XS=YR:|
|00002a30| f2 53 74 72 69 6e 67 73 | 3a 44 59 24 3d 58 44 24 |.Strings|:DY$=XD$|
|00002a40| 3a 4d 4e 24 3d 58 4d 24 | 3a 59 52 24 3d 58 53 24 |:MN$=XM$|:YR$=XS$|
|00002a50| 0d 0c 76 36 20 f1 89 28 | 31 29 3b 44 59 24 3b 22 |..v6 ..(|1);DY$;"|
|00002a60| 2f 22 3b 4d 4e 24 3b 22 | 2f 22 3b 59 52 24 3a 44 |/";MN$;"|/";YR$:D|
|00002a70| 32 24 3d 44 59 24 3a 4d | 32 24 3d 4d 4e 24 3a 59 |2$=DY$:M|2$=MN$:Y|
|00002a80| 32 24 3d 59 52 24 0d 0c | 80 32 20 f1 27 8a 35 29 |2$=YR$..|.2 .'.5)|
|00002a90| 3b 22 4d 61 78 20 65 6c | 6f 6e 67 61 74 69 6f 6e |;"Max el|ongation|
|00002aa0| 20 64 75 72 69 6e 67 20 | 74 68 65 20 70 65 72 69 | during |the peri|
|00002ab0| 6f 64 20 69 73 20 22 3b | 0d 0c 8a 23 20 58 3d 45 |od is ";|...# X=E|
|00002ac0| 4c 6d 61 78 3a 53 57 31 | 3d 31 3a f2 4d 69 6e 73 |Lmax:SW1|=1:.Mins|
|00002ad0| 65 63 3a f2 53 74 72 69 | 6e 67 73 0d 0c 94 47 20 |ec:.Stri|ngs...G |
|00002ae0| f1 8a 34 32 29 3b 58 44 | 24 3b 22 2c 22 3b 58 4d |..42);XD|$;",";XM|
|00002af0| 24 3b 22 2c 22 3b 58 53 | 24 3b 22 20 28 44 2c 4d |$;",";XS|$;" (D,M|
|00002b00| 2c 53 29 20 6f 6e 20 22 | 3b 44 59 45 4c 24 3b 22 |,S) on "|;DYEL$;"|
|00002b10| 2f 22 3b 4d 4e 45 4c 24 | 3b 22 2f 22 3b 59 52 45 |/";MNEL$|;"/";YRE|
|00002b20| 4c 24 0d 0c 9e 06 20 f1 | 0d 0c a8 16 20 e7 20 53 |L$.... .|.... . S|
|00002b30| 48 53 52 24 3d 22 2b 22 | 20 f2 52 69 73 65 0d 0c |HSR$="+"| .Rise..|
|00002b40| b2 15 20 e7 20 53 48 53 | 53 24 3d 22 2b 22 20 f2 |.. . SHS|S$="+" .|
|00002b50| 53 65 74 0d 0c bc 06 20 | f1 0d 0c c6 06 20 e1 0d |Set.... |..... ..|
|00002b60| 0c d0 06 20 3a 0d 0c da | 0d 20 dd f2 64 65 73 6f |... :...|. ..deso|
|00002b70| 72 74 0d 0c e4 32 20 e3 | 4a 3d 31 b8 50 51 3a 61 |rt...2 .|J=1.PQ:a|
|00002b80| 25 21 28 4a 2a 38 29 3d | a8 28 44 41 54 45 28 4a |%!(J*8)=|.(DATE(J|
|00002b90| 29 2a 31 30 29 3a 61 25 | 21 28 4a 2a 38 2d 34 29 |)*10):a%|!(J*8-4)|
|00002ba0| 3d 4a 3a ed 0d 0c ee 0a | 20 41 25 3d 61 25 0d 0c |=J:.....| A%=a%..|
|00002bb0| f8 09 20 42 25 3d 31 0d | 0d 02 0a 20 43 25 3d 50 |.. B%=1.|... C%=P|
|00002bc0| 51 0d 0d 0c 47 20 d6 20 | 71 73 6f 72 74 3a f4 20 |Q...G . |qsort:. |
|00002bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002be0| 20 20 20 20 20 20 53 6f | 72 74 69 6e 67 20 73 75 | So|rting su|
|00002bf0| 6e 72 69 73 65 20 62 61 | 63 6b 20 74 6f 20 64 61 |nrise ba|ck to da|
|00002c00| 74 65 20 6f 72 64 65 72 | 0d 0d 16 06 20 3a 0d 0d |te order|.... :..|
|00002c10| 20 22 20 e3 4a 3d 31 b8 | 50 51 3a 44 41 54 45 28 | " .J=1.|PQ:DATE(|
|00002c20| 4a 29 3d 61 25 21 28 4a | 2a 38 29 2f 31 30 3a ed |J)=a%!(J|*8)/10:.|
|00002c30| 0d 0d 2a 44 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..*D .J=|1.PQ:SP(|
|00002c40| 4a 29 3d 41 4c 54 73 75 | 6e 72 69 73 65 28 61 25 |J)=ALTsu|nrise(a%|
|00002c50| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 41 4c 54 73 |!(J*8-4)|):.:ALTs|
|00002c60| 75 6e 72 69 73 65 28 29 | 3d 53 50 28 29 3a 53 50 |unrise()|=SP():SP|
|00002c70| 28 29 3d 30 0d 0d 34 42 | 20 e3 4a 3d 31 b8 50 51 |()=0..4B| .J=1.PQ|
|00002c80| 3a 53 50 28 4a 29 3d 41 | 5a 73 75 6e 72 69 73 65 |:SP(J)=A|Zsunrise|
|00002c90| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|00002ca0| 5a 73 75 6e 72 69 73 65 | 28 29 3d 53 50 28 29 3a |Zsunrise|()=SP():|
|00002cb0| 53 50 28 29 3d 30 0d 0d | 3e 34 20 e3 4a 3d 31 b8 |SP()=0..|>4 .J=1.|
|00002cc0| 50 51 3a 53 50 28 4a 29 | 3d 45 4c 28 61 25 21 28 |PQ:SP(J)|=EL(a%!(|
|00002cd0| 4a 2a 38 2d 34 29 29 3a | ed 3a 45 4c 28 29 3d 53 |J*8-4)):|.:EL()=S|
|00002ce0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 0d 48 46 20 e3 |P():SP()|=0..HF .|
|00002cf0| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 41 4c 54 |J=1.PQ:S|P(J)=ALT|
|00002d00| 6d 69 64 6e 69 67 68 74 | 28 61 25 21 28 4a 2a 38 |midnight|(a%!(J*8|
|00002d10| 2d 34 29 29 3a ed 3a 41 | 4c 54 6d 69 64 6e 69 67 |-4)):.:A|LTmidnig|
|00002d20| 68 74 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |ht()=SP(|):SP()=0|
|00002d30| 0d 0d 52 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..R6 .J=|1.PQ:SP(|
|00002d40| 4a 29 3d 4c 41 4d 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=LAM(a|%!(J*8-4|
|00002d50| 29 29 3a ed 3a 4c 41 4d | 28 29 3d 53 50 28 29 3a |)):.:LAM|()=SP():|
|00002d60| 53 50 28 29 3d 30 0d 0d | 5c 36 20 e3 4a 3d 31 b8 |SP()=0..|\6 .J=1.|
|00002d70| 50 51 3a 53 50 28 4a 29 | 3d 42 45 54 28 61 25 21 |PQ:SP(J)|=BET(a%!|
|00002d80| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 42 45 54 28 29 |(J*8-4))|:.:BET()|
|00002d90| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 0d 66 36 |=SP():SP|()=0..f6|
|00002da0| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 48 | .J=1.PQ|:SP(J)=H|
|00002db0| 53 52 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |SR(a%!(J|*8-4)):.|
|00002dc0| 3a 48 53 52 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |:HSR()=S|P():SP()|
|00002dd0| 3d 30 0d 0d 70 06 20 3a | 0d 0d 7a 37 20 e3 4a 3d |=0..p. :|..z7 .J=|
|00002de0| 31 b8 50 51 3a 61 25 21 | 28 4a 2a 38 29 3d 41 4c |1.PQ:a%!|(J*8)=AL|
|00002df0| 54 6d 69 64 6e 69 67 68 | 74 28 4a 29 2a 31 45 36 |Tmidnigh|t(J)*1E6|
|00002e00| 3a 61 25 21 28 4a 2a 38 | 2d 34 29 3d 4a 3a ed 0d |:a%!(J*8|-4)=J:..|
|00002e10| 0d 84 0a 20 41 25 3d 61 | 25 0d 0d 8e 09 20 42 25 |... A%=a|%.... B%|
|00002e20| 3d 31 0d 0d 98 0a 20 43 | 25 3d 50 51 0d 0d a2 48 |=1.... C|%=PQ...H|
|00002e30| 20 d6 20 71 73 6f 72 74 | 3a f4 20 20 20 20 20 20 | . qsort|:. |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e50| 20 20 20 20 20 20 20 20 | 53 6f 72 74 20 66 6f 72 | |Sort for|
|00002e60| 20 6d 61 78 2f 6d 69 6e | 20 41 4c 54 6d 69 64 6e | max/min| ALTmidn|
|00002e70| 69 67 68 74 0d 0d ac 06 | 20 3a 0d 0d b6 2a 20 e3 |ight....| :...* .|
|00002e80| 4a 3d 31 b8 50 51 3a 41 | 4c 54 6d 69 64 6e 69 67 |J=1.PQ:A|LTmidnig|
|00002e90| 68 74 28 4a 29 3d 61 25 | 21 28 4a 2a 38 29 2f 31 |ht(J)=a%|!(J*8)/1|
|00002ea0| 45 36 3a ed 0d 0d c0 41 | 20 41 4c 54 6d 69 64 6e |E6:....A| ALTmidn|
|00002eb0| 69 67 68 74 6d 61 78 3d | 41 4c 54 6d 69 64 6e 69 |ightmax=|ALTmidni|
|00002ec0| 67 68 74 28 50 51 29 3a | 41 4c 54 6d 69 64 6e 69 |ght(PQ):|ALTmidni|
|00002ed0| 67 68 74 6d 69 6e 3d 41 | 4c 54 6d 69 64 6e 69 67 |ghtmin=A|LTmidnig|
|00002ee0| 68 74 28 31 29 0d 0d ca | 38 20 e3 4a 3d 31 b8 50 |ht(1)...|8 .J=1.P|
|00002ef0| 51 3a 53 50 28 4a 29 3d | 44 41 54 45 28 61 25 21 |Q:SP(J)=|DATE(a%!|
|00002f00| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 44 41 54 45 28 |(J*8-4))|:.:DATE(|
|00002f10| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 0d d4 |)=SP():S|P()=0...|
|00002f20| 06 20 3a 0d 0d de 32 20 | e3 4a 3d 31 b8 50 51 3a |. :...2 |.J=1.PQ:|
|00002f30| 61 25 21 28 4a 2a 38 29 | 3d a8 28 44 41 54 45 28 |a%!(J*8)|=.(DATE(|
|00002f40| 4a 29 2a 31 30 29 3a 61 | 25 21 28 4a 2a 38 2d 34 |J)*10):a|%!(J*8-4|
|00002f50| 29 3d 4a 3a ed 0d 0d e8 | 0a 20 41 25 3d 61 25 0d |)=J:....|. A%=a%.|
|00002f60| 0d f2 09 20 42 25 3d 31 | 0d 0d fc 0a 20 43 25 3d |... B%=1|.... C%=|
|00002f70| 50 51 0d 0e 06 48 20 d6 | 20 71 73 6f 72 74 3a f4 |PQ...H .| qsort:.|
|00002f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f90| 20 20 20 20 20 20 20 52 | 65 2d 73 6f 72 74 20 41 | R|e-sort A|
|00002fa0| 4c 54 6d 69 64 6e 69 67 | 68 74 20 69 6e 74 6f 20 |LTmidnig|ht into |
|00002fb0| 64 61 74 65 20 6f 72 64 | 65 72 0d 0e 10 06 20 3a |date ord|er.... :|
|00002fc0| 0d 0e 1a 22 20 e3 4a 3d | 31 b8 50 51 3a 44 41 54 |..." .J=|1.PQ:DAT|
|00002fd0| 45 28 4a 29 3d 61 25 21 | 28 4a 2a 38 29 2f 31 30 |E(J)=a%!|(J*8)/10|
|00002fe0| 3a ed 0d 0e 24 46 20 e3 | 4a 3d 31 b8 50 51 3a 53 |:...$F .|J=1.PQ:S|
|00002ff0| 50 28 4a 29 3d 41 4c 54 | 6d 69 64 6e 69 67 68 74 |P(J)=ALT|midnight|
|00003000| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|00003010| 4c 54 6d 69 64 6e 69 67 | 68 74 28 29 3d 53 50 28 |LTmidnig|ht()=SP(|
|00003020| 29 3a 53 50 28 29 3d 30 | 0d 0e 2e 06 20 3a 0d 0e |):SP()=0|.... :..|
|00003030| 38 33 20 e3 4a 3d 31 b8 | 50 51 3a 61 25 21 28 4a |83 .J=1.|PQ:a%!(J|
|00003040| 2a 38 29 3d a8 28 44 41 | 54 45 41 28 4a 29 2a 31 |*8)=.(DA|TEA(J)*1|
|00003050| 30 29 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |0):a%!(J|*8-4)=J:|
|00003060| ed 0d 0e 42 0a 20 41 25 | 3d 61 25 0d 0e 4c 09 20 |...B. A%|=a%..L. |
|00003070| 42 25 3d 31 0d 0e 56 0a | 20 43 25 3d 50 51 0d 0e |B%=1..V.| C%=PQ..|
|00003080| 60 47 20 d6 20 71 73 6f | 72 74 3a f4 20 20 20 20 |`G . qso|rt:. |
|00003090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000030a0| 20 20 20 20 53 6f 72 74 | 69 6e 67 20 73 75 6e 73 | Sort|ing suns|
|000030b0| 65 74 20 62 61 63 6b 20 | 74 6f 20 64 61 74 65 20 |et back |to date |
|000030c0| 6f 72 64 65 72 0d 0e 6a | 06 20 3a 0d 0e 74 23 20 |order..j|. :..t# |
|000030d0| e3 4a 3d 31 b8 50 51 3a | 44 41 54 45 41 28 4a 29 |.J=1.PQ:|DATEA(J)|
|000030e0| 3d 61 25 21 28 4a 2a 38 | 29 2f 31 30 3a ed 0d 0e |=a%!(J*8|)/10:...|
|000030f0| 7e 42 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |~B .J=1.|PQ:SP(J)|
|00003100| 3d 41 4c 54 73 75 6e 73 | 65 74 28 61 25 21 28 4a |=ALTsuns|et(a%!(J|
|00003110| 2a 38 2d 34 29 29 3a ed | 3a 41 4c 54 73 75 6e 73 |*8-4)):.|:ALTsuns|
|00003120| 65 74 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |et()=SP(|):SP()=0|
|00003130| 0d 0e 88 40 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...@ .J=|1.PQ:SP(|
|00003140| 4a 29 3d 41 5a 73 75 6e | 73 65 74 28 61 25 21 28 |J)=AZsun|set(a%!(|
|00003150| 4a 2a 38 2d 34 29 29 3a | ed 3a 41 5a 73 75 6e 73 |J*8-4)):|.:AZsuns|
|00003160| 65 74 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |et()=SP(|):SP()=0|
|00003170| 0d 0e 92 38 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...8 .J=|1.PQ:SP(|
|00003180| 4a 29 3d 4c 41 4d 42 28 | 61 25 21 28 4a 2a 38 2d |J)=LAMB(|a%!(J*8-|
|00003190| 34 29 29 3a ed 3a 4c 41 | 4d 42 28 29 3d 53 50 28 |4)):.:LA|MB()=SP(|
|000031a0| 29 3a 53 50 28 29 3d 30 | 0d 0e 9c 38 20 e3 4a 3d |):SP()=0|...8 .J=|
|000031b0| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 42 45 54 42 28 |1.PQ:SP(|J)=BETB(|
|000031c0| 61 25 21 28 4a 2a 38 2d | 34 29 29 3a ed 3a 42 45 |a%!(J*8-|4)):.:BE|
|000031d0| 54 42 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |TB()=SP(|):SP()=0|
|000031e0| 0d 0e a6 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...6 .J=|1.PQ:SP(|
|000031f0| 4a 29 3d 48 53 53 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=HSS(a|%!(J*8-4|
|00003200| 29 29 3a ed 3a 48 53 53 | 28 29 3d 53 50 28 29 3a |)):.:HSS|()=SP():|
|00003210| 53 50 28 29 3d 30 0d 0e | b0 06 20 e1 0d 0e ba 06 |SP()=0..|.. .....|
|00003220| 20 3a 0d 0e c4 11 20 dd | f2 63 68 61 72 74 73 65 | :.... .|.chartse|
|00003230| 74 75 70 0d 0e ce 06 20 | db 0d 0e d8 27 20 eb 20 |tup.... |....' . |
|00003240| 31 32 3a e6 20 37 3a 63 | 6f 6c 3d 37 36 3a e7 a9 |12:. 7:c|ol=76:..|
|00003250| 28 c3 28 50 51 29 29 3e | 33 8c 63 6f 6c 3d 37 34 |(.(PQ))>|3.col=74|
|00003260| 0d 0e e2 68 20 f1 27 8a | 32 29 3b 50 24 3b 22 20 |...h .'.|2);P$;" |
|00003270| 66 72 6f 6d 20 22 3b 4e | 41 4d 45 24 3b 22 3a 41 |from ";N|AME$;":A|
|00003280| 6c 74 69 74 75 64 65 2f | 65 6c 6f 6e 67 61 74 69 |ltitude/|elongati|
|00003290| 6f 6e 20 66 72 6f 6d 20 | 22 3b 44 31 24 3b 22 2f |on from |";D1$;"/|
|000032a0| 22 3b 4d 31 24 3b 22 2f | 22 3b 59 31 24 3b 22 20 |";M1$;"/|";Y1$;" |
|000032b0| 74 6f 20 22 3b 44 32 24 | 3b 22 2f 22 3b 4d 32 24 |to ";D2$|;"/";M2$|
|000032c0| 3b 22 2f 22 3b 59 32 24 | 0d 0e ec 1f 20 f1 8a 35 |;"/";Y2$|.... ..5|
|000032d0| 29 3b 22 61 6c 74 69 74 | 75 64 65 20 61 74 20 73 |);"altit|ude at s|
|000032e0| 75 6e 72 69 73 65 22 0d | 0e f6 1e 20 f1 8a 35 29 |unrise".|... ..5)|
|000032f0| 3b 22 61 6c 74 69 74 75 | 64 65 20 61 74 20 73 75 |;"altitu|de at su|
|00003300| 6e 73 65 74 22 0d 0f 00 | 20 20 f1 8a 35 29 3b 22 |nset"...| ..5);"|
|00003310| 61 6c 74 69 74 75 64 65 | 20 61 74 20 6d 69 64 6e |altitude| at midn|
|00003320| 69 67 68 74 22 0d 0f 0a | 16 20 f1 8a 35 29 3b 22 |ight"...|. ..5);"|
|00003330| 65 6c 6f 6e 67 61 74 69 | 6f 6e 22 0d 0f 14 2a 20 |elongati|on"...* |
|00003340| f1 8a 34 2c a4 53 43 4c | 28 50 6c 75 73 6d 72 6b |..4,.SCL|(Plusmrk|
|00003350| 29 29 3b 22 2b 22 3b 59 | 6d 61 78 61 76 3b 22 20 |));"+";Y|maxav;" |
|00003360| 64 65 67 2e 22 0d 0f 1e | 27 20 f1 8a 35 2c a4 53 |deg."...|' ..5,.S|
|00003370| 43 4c 28 4d 69 6e 75 73 | 6d 72 6b 29 29 3b 59 6d |CL(Minus|mrk));Ym|
|00003380| 69 6e 61 76 3b 22 20 64 | 65 67 2e 22 0d 0f 28 16 |inav;" d|eg."..(.|
|00003390| 20 e3 4e 3d 30 b8 50 51 | 20 88 20 a8 28 50 51 2f | .N=0.PQ| . .(PQ/|
|000033a0| 34 29 0d 0f 32 3a 20 43 | 44 4e 3d a8 28 a4 43 44 |4)..2: C|DN=.(.CD|
|000033b0| 4e 28 4e 2c 58 6d 69 6e | 2c 58 6d 61 78 2c 31 32 |N(N,Xmin|,Xmax,12|
|000033c0| 32 35 29 2a 63 6f 6c 2f | 31 32 32 35 29 3a e7 43 |25)*col/|1225):.C|
|000033d0| 44 4e 3c 30 20 8c 20 43 | 44 4e 3d 30 0d 0f 3c 10 |DN<0 . C|DN=0..<.|
|000033e0| 20 f1 8a 43 44 4e 2c 33 | 30 29 3b 4e 0d 0f 46 06 | ..CDN,3|0);N..F.|
|000033f0| 20 ed 0d 0f 50 06 20 e1 | 0d 0f 5a 06 20 3a 0d 0f | ...P. .|..Z. :..|
|00003400| 64 0c 20 dd f2 73 63 61 | 6c 65 0d 0f 6e 1a 20 e3 |d. ..sca|le..n. .|
|00003410| 4a 3d 31 b8 38 3a 61 25 | 21 28 4a 2a 38 2d 34 29 |J=1.8:a%|!(J*8-4)|
|00003420| 3d 4a 3a ed 0d 0f 78 28 | 20 61 25 21 28 38 29 3d |=J:...x(| a%!(8)=|
|00003430| a8 28 94 28 45 4c 6d 61 | 78 2a 31 45 36 29 2b 30 |.(.(ELma|x*1E6)+0|
|00003440| 2e 35 29 2a b4 28 45 4c | 6d 61 78 29 0d 0f 82 29 |.5)*.(EL|max)...)|
|00003450| 20 61 25 21 28 31 36 29 | 3d a8 28 94 28 45 4c 6d | a%!(16)|=.(.(ELm|
|00003460| 69 6e 2a 31 45 36 29 2b | 30 2e 35 29 2a b4 28 45 |in*1E6)+|0.5)*.(E|
|00003470| 4c 6d 69 6e 29 0d 0f 8c | 39 20 61 25 21 28 32 34 |Lmin)...|9 a%!(24|
|00003480| 29 3d a8 28 94 28 41 4c | 54 73 75 6e 72 69 73 65 |)=.(.(AL|Tsunrise|
|00003490| 6d 61 78 2a 31 45 36 29 | 2b 30 2e 35 29 2a b4 28 |max*1E6)|+0.5)*.(|
|000034a0| 41 4c 54 73 75 6e 72 69 | 73 65 6d 61 78 29 0d 0f |ALTsunri|semax)..|
|000034b0| 96 39 20 61 25 21 28 33 | 32 29 3d a8 28 94 28 41 |.9 a%!(3|2)=.(.(A|
|000034c0| 4c 54 73 75 6e 72 69 73 | 65 6d 69 6e 2a 31 45 36 |LTsunris|emin*1E6|
|000034d0| 29 2b 30 2e 35 29 2a b4 | 28 41 4c 54 73 75 6e 72 |)+0.5)*.|(ALTsunr|
|000034e0| 69 73 65 6d 69 6e 29 0d | 0f a0 37 20 61 25 21 28 |isemin).|..7 a%!(|
|000034f0| 34 30 29 3d a8 28 94 28 | 41 4c 54 73 75 6e 73 65 |40)=.(.(|ALTsunse|
|00003500| 74 6d 61 78 2a 31 45 36 | 29 2b 30 2e 35 29 2a b4 |tmax*1E6|)+0.5)*.|
|00003510| 28 41 4c 54 73 75 6e 73 | 65 74 6d 61 78 29 0d 0f |(ALTsuns|etmax)..|
|00003520| aa 37 20 61 25 21 28 34 | 38 29 3d a8 28 94 28 41 |.7 a%!(4|8)=.(.(A|
|00003530| 4c 54 73 75 6e 73 65 74 | 6d 69 6e 2a 31 45 36 29 |LTsunset|min*1E6)|
|00003540| 2b 30 2e 35 29 2a b4 28 | 41 4c 54 73 75 6e 73 65 |+0.5)*.(|ALTsunse|
|00003550| 74 6d 69 6e 29 0d 0f b4 | 3b 20 61 25 21 28 35 36 |tmin)...|; a%!(56|
|00003560| 29 3d a8 28 94 28 41 4c | 54 6d 69 64 6e 69 67 68 |)=.(.(AL|Tmidnigh|
|00003570| 74 6d 61 78 2a 31 45 36 | 29 2b 30 2e 35 29 2a b4 |tmax*1E6|)+0.5)*.|
|00003580| 28 41 4c 54 6d 69 64 6e | 69 67 68 74 6d 61 78 29 |(ALTmidn|ightmax)|
|00003590| 0d 0f be 3b 20 61 25 21 | 28 36 34 29 3d a8 28 94 |...; a%!|(64)=.(.|
|000035a0| 28 41 4c 54 6d 69 64 6e | 69 67 68 74 6d 69 6e 2a |(ALTmidn|ightmin*|
|000035b0| 31 45 36 29 2b 30 2e 35 | 29 2a b4 28 41 4c 54 6d |1E6)+0.5|)*.(ALTm|
|000035c0| 69 64 6e 69 67 68 74 6d | 69 6e 29 0d 0f c8 06 20 |idnightm|in).... |
|000035d0| 3a 0d 0f d2 0a 20 41 25 | 3d 61 25 0d 0f dc 09 20 |:.... A%|=a%.... |
|000035e0| 42 25 3d 31 0d 0f e6 09 | 20 43 25 3d 38 0d 0f f0 |B%=1....| C%=8...|
|000035f0| 0c 20 d6 20 71 73 6f 72 | 74 0d 0f fa 06 20 3a 0d |. . qsor|t.... :.|
|00003600| 10 04 28 20 59 6d 61 78 | 3d a8 28 94 28 61 25 21 |..( Ymax|=.(.(a%!|
|00003610| 28 36 34 29 2f 31 45 36 | 29 2b 31 29 2a b4 28 61 |(64)/1E6|)+1)*.(a|
|00003620| 25 21 28 36 34 29 29 0d | 10 0e 26 20 59 6d 69 6e |%!(64)).|..& Ymin|
|00003630| 3d a8 28 94 28 61 25 21 | 28 38 29 2f 31 45 36 29 |=.(.(a%!|(8)/1E6)|
|00003640| 2b 31 29 2a b4 28 61 25 | 21 28 38 29 29 0d 10 18 |+1)*.(a%|!(8))...|
|00003650| 0c 20 58 6d 61 78 3d 50 | 51 0d 10 22 0b 20 58 6d |. Xmax=P|Q..". Xm|
|00003660| 69 6e 3d 31 0d 10 2c 1b | 20 59 6d 61 78 61 76 3d |in=1..,.| Ymaxav=|
|00003670| a8 28 28 59 6d 61 78 2f | 32 29 2b 30 2e 35 29 0d |.((Ymax/|2)+0.5).|
|00003680| 10 36 1b 20 59 6d 69 6e | 61 76 3d a8 28 28 59 6d |.6. Ymin|av=.((Ym|
|00003690| 69 6e 2f 32 29 2d 30 2e | 35 29 0d 10 40 20 20 59 |in/2)-0.|5)..@ Y|
|000036a0| 7a 65 72 6f 3d a4 43 44 | 4e 28 30 2c 59 6d 69 6e |zero=.CD|N(0,Ymin|
|000036b0| 2c 59 6d 61 78 2c 38 35 | 30 29 0d 10 4a 31 20 50 |,Ymax,85|0)..J1 P|
|000036c0| 6c 75 73 6d 72 6b 3d a8 | 28 28 94 28 38 35 30 2b |lusmrk=.|((.(850+|
|000036d0| 59 7a 65 72 6f 29 2f 32 | 29 2b 30 2e 35 29 2a b4 |Yzero)/2|)+0.5)*.|
|000036e0| 28 38 35 30 2b 59 7a 65 | 72 6f 29 0d 10 54 30 20 |(850+Yze|ro)..T0 |
|000036f0| 4d 69 6e 75 73 6d 72 6b | 3d a8 28 28 94 28 59 7a |Minusmrk|=.((.(Yz|
|00003700| 65 72 6f 2d 32 35 29 2f | 32 29 2b 30 2e 35 29 2a |ero-25)/|2)+0.5)*|
|00003710| b4 28 59 7a 65 72 6f 2d | 32 35 29 0d 10 5e 06 20 |.(Yzero-|25)..^. |
|00003720| e1 0d 10 68 06 20 3a 0d | 10 72 0d 20 dd f2 63 75 |...h. :.|.r. ..cu|
|00003730| 72 76 65 73 0d 10 7c 1a | 20 86 20 32 35 2c 59 7a |rves..|.| . 25,Yz|
|00003740| 65 72 6f 2c 31 32 35 30 | 2c 59 7a 65 72 6f 0d 10 |ero,1250|,Yzero..|
|00003750| 86 1d 20 86 20 32 35 2c | 38 32 35 2c 32 35 2c 32 |.. . 25,|825,25,2|
|00003760| 35 3a df 20 31 32 35 30 | 2c 32 35 0d 10 90 36 20 |5:. 1250|,25...6 |
|00003770| 86 20 32 35 2c 50 6c 75 | 73 6d 72 6b 2c 35 30 2c |. 25,Plu|smrk,50,|
|00003780| 50 6c 75 73 6d 72 6b 3a | 86 20 32 35 2c 4d 69 6e |Plusmrk:|. 25,Min|
|00003790| 75 73 6d 72 6b 2c 35 30 | 2c 4d 69 6e 75 73 6d 72 |usmrk,50|,Minusmr|
|000037a0| 6b 0d 10 9a 17 20 e3 4e | 3d 59 6d 69 6e 20 b8 20 |k.... .N|=Ymin . |
|000037b0| 59 6d 61 78 20 88 20 34 | 0d 10 a4 38 20 86 20 32 |Ymax . 4|...8 . 2|
|000037c0| 35 2c a4 43 44 4e 28 4e | 2c 59 6d 69 6e 2c 59 6d |5,.CDN(N|,Ymin,Ym|
|000037d0| 61 78 2c 38 35 30 29 2c | 33 30 2c a4 43 44 4e 28 |ax,850),|30,.CDN(|
|000037e0| 4e 2c 59 6d 69 6e 2c 59 | 6d 61 78 2c 38 35 30 29 |N,Ymin,Y|max,850)|
|000037f0| 0d 10 ae 08 20 ed 20 4e | 0d 10 b8 17 20 e3 4e 3d |.... . N|.... .N=|
|00003800| 30 20 b8 20 50 51 20 88 | 20 50 51 20 81 20 34 0d |0 . PQ .| PQ . 4.|
|00003810| 10 c2 3a 20 86 20 a4 43 | 44 4e 28 4e 2c 58 6d 69 |..: . .C|DN(N,Xmi|
|00003820| 6e 2c 58 6d 61 78 2c 31 | 32 32 35 29 2c 32 35 2c |n,Xmax,1|225),25,|
|00003830| a4 43 44 4e 28 4e 2c 58 | 6d 69 6e 2c 58 6d 61 78 |.CDN(N,X|min,Xmax|
|00003840| 2c 31 32 32 35 29 2c 31 | 30 0d 10 cc 08 20 ed 20 |,1225),1|0.... . |
|00003850| 4e 0d 10 d6 0e 20 e7 20 | 50 51 3e 33 31 20 8c 0d |N.... . |PQ>31 ..|
|00003860| 10 e0 19 20 20 e3 4e 3d | 30 20 b8 20 50 51 20 88 |... .N=|0 . PQ .|
|00003870| 20 50 51 20 81 20 33 32 | 0d 10 ea 3b 20 20 86 20 | PQ . 32|...; . |
|00003880| a4 43 44 4e 28 4e 2c 58 | 6d 69 6e 2c 58 6d 61 78 |.CDN(N,X|min,Xmax|
|00003890| 2c 31 32 32 35 29 2c 32 | 35 2c a4 43 44 4e 28 4e |,1225),2|5,.CDN(N|
|000038a0| 2c 58 6d 69 6e 2c 58 6d | 61 78 2c 31 32 32 35 29 |,Xmin,Xm|ax,1225)|
|000038b0| 2c 33 35 0d 10 f4 09 20 | 20 ed 20 4e 0d 10 fe 06 |,35.... | . N....|
|000038c0| 20 cd 0d 11 08 14 20 86 | 20 33 30 2c 38 34 35 2c | ..... .| 30,845,|
|000038d0| 35 35 2c 38 34 35 0d 11 | 12 23 20 ec 20 32 35 2c |55,845..|.# . 25,|
|000038e0| a4 43 44 4e 28 45 4c 28 | 31 29 2c 59 6d 69 6e 2c |.CDN(EL(|1),Ymin,|
|000038f0| 59 6d 61 78 2c 38 35 30 | 29 0d 11 1c 0c 20 e3 4e |Ymax,850|).... .N|
|00003900| 3d 32 b8 50 51 0d 11 26 | 37 20 df 20 a4 43 44 4e |=2.PQ..&|7 . .CDN|
|00003910| 28 4e 2c 58 6d 69 6e 2c | 58 6d 61 78 2c 31 32 32 |(N,Xmin,|Xmax,122|
|00003920| 35 29 2c a4 43 44 4e 28 | 45 4c 28 4e 29 2c 59 6d |5),.CDN(|EL(N),Ym|
|00003930| 69 6e 2c 59 6d 61 78 2c | 38 35 30 29 0d 11 30 08 |in,Ymax,|850)..0.|
|00003940| 20 ed 20 4e 0d 11 3a 45 | 20 e6 20 31 3a 86 20 33 | . N..:E| . 1:. 3|
|00003950| 30 2c 39 33 35 2c 35 35 | 2c 39 33 35 3a f4 20 20 |0,935,55|,935:. |
|00003960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003970| 20 20 20 20 20 20 20 20 | 20 46 69 72 73 74 20 63 | | First c|
|00003980| 6f 6c 6f 75 72 20 62 61 | 72 0d 11 44 2b 20 ec 20 |olour ba|r..D+ . |
|00003990| 32 35 2c a4 43 44 4e 28 | 41 4c 54 73 75 6e 72 69 |25,.CDN(|ALTsunri|
|000039a0| 73 65 28 31 29 2c 59 6d | 69 6e 2c 59 6d 61 78 2c |se(1),Ym|in,Ymax,|
|000039b0| 38 35 30 29 0d 11 4e 0c | 20 e3 4e 3d 32 b8 50 51 |850)..N.| .N=2.PQ|
|000039c0| 0d 11 58 3f 20 df 20 a4 | 43 44 4e 28 4e 2c 58 6d |..X? . .|CDN(N,Xm|
|000039d0| 69 6e 2c 58 6d 61 78 2c | 31 32 32 35 29 2c a4 43 |in,Xmax,|1225),.C|
|000039e0| 44 4e 28 41 4c 54 73 75 | 6e 72 69 73 65 28 4e 29 |DN(ALTsu|nrise(N)|
|000039f0| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00003a00| 11 62 08 20 ed 20 4e 0d | 11 6c 18 20 e6 20 32 3a |.b. . N.|.l. . 2:|
|00003a10| 86 20 33 30 2c 39 30 35 | 2c 35 35 2c 39 30 35 0d |. 30,905|,55,905.|
|00003a20| 11 76 2a 20 ec 20 32 35 | 2c a4 43 44 4e 28 41 4c |.v* . 25|,.CDN(AL|
|00003a30| 54 73 75 6e 73 65 74 28 | 31 29 2c 59 6d 69 6e 2c |Tsunset(|1),Ymin,|
|00003a40| 59 6d 61 78 2c 38 35 30 | 29 0d 11 80 0c 20 e3 4e |Ymax,850|).... .N|
|00003a50| 3d 32 b8 50 51 0d 11 8a | 3e 20 df 20 a4 43 44 4e |=2.PQ...|> . .CDN|
|00003a60| 28 4e 2c 58 6d 69 6e 2c | 58 6d 61 78 2c 31 32 32 |(N,Xmin,|Xmax,122|
|00003a70| 35 29 2c a4 43 44 4e 28 | 41 4c 54 73 75 6e 73 65 |5),.CDN(|ALTsunse|
|00003a80| 74 28 4e 29 2c 59 6d 69 | 6e 2c 59 6d 61 78 2c 38 |t(N),Ymi|n,Ymax,8|
|00003a90| 35 30 29 0d 11 94 08 20 | ed 20 4e 0d 11 9e 18 20 |50).... |. N.... |
|00003aa0| e6 20 33 3a 86 20 33 30 | 2c 38 37 35 2c 35 35 2c |. 3:. 30|,875,55,|
|00003ab0| 38 37 35 0d 11 a8 2c 20 | ec 20 32 35 2c a4 43 44 |875..., |. 25,.CD|
|00003ac0| 4e 28 41 4c 54 6d 69 64 | 6e 69 67 68 74 28 31 29 |N(ALTmid|night(1)|
|00003ad0| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00003ae0| 11 b2 0c 20 e3 4e 3d 32 | b8 50 51 0d 11 bc 40 20 |... .N=2|.PQ...@ |
|00003af0| df 20 a4 43 44 4e 28 4e | 2c 58 6d 69 6e 2c 58 6d |. .CDN(N|,Xmin,Xm|
|00003b00| 61 78 2c 31 32 32 35 29 | 2c a4 43 44 4e 28 41 4c |ax,1225)|,.CDN(AL|
|00003b10| 54 6d 69 64 6e 69 67 68 | 74 28 4e 29 2c 59 6d 69 |Tmidnigh|t(N),Ymi|
|00003b20| 6e 2c 59 6d 61 78 2c 38 | 35 30 29 0d 11 c6 08 20 |n,Ymax,8|50).... |
|00003b30| ed 20 4e 0d 11 d0 06 20 | e1 0d 11 da 06 20 3a 0d |. N.... |..... :.|
|00003b40| 11 e4 0e 20 dd f2 53 74 | 72 69 6e 67 73 0d 11 ee |... ..St|rings...|
|00003b50| 0d 20 58 53 3d a8 28 58 | 53 29 0d 11 f8 24 20 58 |. XS=.(X|S)...$ X|
|00003b60| 44 24 3d c3 28 58 44 29 | 3a e7 20 58 44 3c 31 30 |D$=.(XD)|:. XD<10|
|00003b70| 20 8c 20 58 44 24 3d 22 | 30 22 2b 58 44 24 0d 12 | . XD$="|0"+XD$..|
|00003b80| 02 24 20 58 4d 24 3d c3 | 28 58 4d 29 3a e7 20 58 |.$ XM$=.|(XM):. X|
|00003b90| 4d 3c 31 30 20 8c 20 58 | 4d 24 3d 22 30 22 2b 58 |M<10 . X|M$="0"+X|
|00003ba0| 4d 24 0d 12 0c 24 20 58 | 53 24 3d c3 28 58 53 29 |M$...$ X|S$=.(XS)|
|00003bb0| 3a e7 20 58 53 3c 31 30 | 20 8c 20 58 53 24 3d 22 |:. XS<10| . XS$="|
|00003bc0| 30 22 2b 58 53 24 0d 12 | 16 06 20 e1 0d 12 20 06 |0"+XS$..|.. ... .|
|00003bd0| 20 3a 0d 12 2a 0b 20 dd | f2 52 69 73 65 0d 12 34 | :..*. .|.Rise..4|
|00003be0| 78 20 f1 89 28 32 29 3b | 22 77 68 65 6e 20 53 75 |x ..(2);|"when Su|
|00003bf0| 6e 20 72 69 73 65 73 20 | 61 74 20 22 3b 48 52 24 |n rises |at ";HR$|
|00003c00| 3b 22 3a 22 3b 4d 52 24 | 3b 22 47 4d 54 2c 20 70 |;":";MR$|;"GMT, p|
|00003c10| 6c 61 6e 65 74 20 61 6c | 74 20 69 73 20 22 3b 53 |lanet al|t is ";S|
|00003c20| 48 53 52 24 3b 41 4c 54 | 78 64 48 53 52 6d 61 78 |HSR$;ALT|xdHSRmax|
|00003c30| 24 3b 22 2c 22 3b 41 4c | 54 78 6d 48 53 52 6d 61 |$;",";AL|TxmHSRma|
|00003c40| 78 24 3b 22 2c 22 3b 41 | 4c 54 73 65 63 48 53 52 |x$;",";A|LTsecHSR|
|00003c50| 6d 61 78 24 3b 0d 12 3e | 40 20 f1 22 20 61 6e 64 |max$;..>|@ ." and|
|00003c60| 20 61 7a 20 69 73 20 22 | 3b 41 5a 78 64 48 53 52 | az is "|;AZxdHSR|
|00003c70| 6d 61 78 24 3b 22 2c 22 | 3b 41 5a 78 6d 48 53 52 |max$;","|;AZxmHSR|
|00003c80| 6d 61 78 24 3b 22 2c 22 | 3b 41 5a 73 65 63 48 53 |max$;","|;AZsecHS|
|00003c90| 52 6d 61 78 24 0d 12 48 | 06 20 f1 0d 12 52 06 20 |Rmax$..H|. ...R. |
|00003ca0| e1 0d 12 5c 06 20 3a 0d | 12 66 0a 20 dd f2 53 65 |...\. :.|.f. ..Se|
|00003cb0| 74 0d 12 70 77 20 f1 89 | 28 33 29 3b 22 77 68 65 |t..pw ..|(3);"whe|
|00003cc0| 6e 20 53 75 6e 20 73 65 | 74 73 20 61 74 20 22 3b |n Sun se|ts at ";|
|00003cd0| 48 53 24 3b 22 3a 22 3b | 4d 53 24 3b 22 47 4d 54 |HS$;":";|MS$;"GMT|
|00003ce0| 2c 20 70 6c 61 6e 65 74 | 20 61 6c 74 20 69 73 20 |, planet| alt is |
|00003cf0| 22 3b 53 48 53 53 24 3b | 41 4c 54 78 64 48 53 53 |";SHSS$;|ALTxdHSS|
|00003d00| 6d 61 78 24 3b 22 2c 22 | 3b 41 4c 54 78 6d 48 53 |max$;","|;ALTxmHS|
|00003d10| 53 6d 61 78 24 3b 22 2c | 22 3b 41 4c 54 73 65 63 |Smax$;",|";ALTsec|
|00003d20| 48 53 53 6d 61 78 24 3b | 0d 12 7a 40 20 f1 22 20 |HSSmax$;|..z@ ." |
|00003d30| 61 6e 64 20 61 7a 20 69 | 73 20 22 3b 41 5a 78 64 |and az i|s ";AZxd|
|00003d40| 48 53 53 6d 61 78 24 3b | 22 2c 22 3b 41 5a 78 6d |HSSmax$;|",";AZxm|
|00003d50| 48 53 53 6d 61 78 24 3b | 22 2c 22 3b 41 5a 73 65 |HSSmax$;|",";AZse|
|00003d60| 63 48 53 53 6d 61 78 24 | 0d 12 84 06 20 f1 0d 12 |cHSSmax$|.... ...|
|00003d70| 8e 06 20 e1 0d 12 98 06 | 20 3a 0d 12 a2 0d 20 dd |.. .....| :.... .|
|00003d80| f2 4d 69 6e 73 65 63 0d | 12 ac 1e 20 e7 20 53 57 |.Minsec.|... . SW|
|00003d90| 31 3d 31 20 20 f2 4d 69 | 6e 73 65 63 5f 49 6e 74 |1=1 .Mi|nsec_Int|
|00003da0| 65 67 65 72 73 0d 12 b6 | 1d 20 e7 20 53 57 31 3d |egers...|. . SW1=|
|00003db0| 2d 31 20 f2 4d 69 6e 73 | 65 63 5f 44 65 63 69 6d |-1 .Mins|ec_Decim|
|00003dc0| 61 6c 0d 12 c0 06 20 e1 | 0d 12 ca 06 20 3a 0d 12 |al.... .|.... :..|
|00003dd0| d4 16 20 dd f2 4d 69 6e | 73 65 63 5f 49 6e 74 65 |.. ..Min|sec_Inte|
|00003de0| 67 65 72 73 0d 12 de 1d | 20 53 4e 3d b4 28 58 29 |gers....| SN=.(X)|
|00003df0| 3a 58 50 3d 94 28 58 29 | 3a 58 44 3d a8 28 58 50 |:XP=.(X)|:XD=.(XP|
|00003e00| 29 0d 12 e8 19 20 41 3d | 28 58 50 2d 58 44 29 2a |).... A=|(XP-XD)*|
|00003e10| 36 30 3a 58 4d 3d a8 28 | 41 29 0d 12 f2 1c 20 58 |60:XM=.(|A).... X|
|00003e20| 53 3d a8 28 28 41 2d 58 | 4d 29 2a 36 30 30 2b 30 |S=.((A-X|M)*600+0|
|00003e30| 2e 35 29 2f 31 30 0d 12 | fc 0b 20 53 24 3d 22 2b |.5)/10..|.. S$="+|
|00003e40| 22 0d 13 06 16 20 e7 20 | 53 4e 3d 2d 31 20 20 8c |".... . |SN=-1 .|
|00003e50| 20 53 24 3d 22 2d 22 0d | 13 10 06 20 e1 0d 13 1a | S$="-".|... ....|
|00003e60| 06 20 3a 0d 13 24 15 20 | dd f2 4d 69 6e 73 65 63 |. :..$. |..Minsec|
|00003e70| 5f 44 65 63 69 6d 61 6c | 0d 13 2e 0a 20 53 4e 3d |_Decimal|.... SN=|
|00003e80| 2b 31 0d 13 38 21 20 e7 | 20 58 44 3c 30 20 84 20 |+1..8! .| XD<0 . |
|00003e90| 58 4d 3c 30 20 84 20 58 | 53 3c 30 20 8c 20 53 4e |XM<0 . X|S<0 . SN|
|00003ea0| 3d 2d 31 0d 13 42 22 20 | 58 44 31 3d 94 28 58 44 |=-1..B" |XD1=.(XD|
|00003eb0| 29 3a 58 4d 31 3d 94 28 | 58 4d 29 3a 58 53 31 3d |):XM1=.(|XM):XS1=|
|00003ec0| 94 28 58 53 29 0d 13 4c | 23 20 58 3d 28 28 28 28 |.(XS)..L|# X=((((|
|00003ed0| 58 53 31 2f 36 30 29 2b | 58 4d 31 29 2f 36 30 29 |XS1/60)+|XM1)/60)|
|00003ee0| 2b 58 44 31 29 2a 53 4e | 0d 13 56 06 20 e1 0d 13 |+XD1)*SN|..V. ...|
|00003ef0| 60 06 20 3a 0d 13 6a 0d | 20 dd f2 4a 75 6c 64 61 |`. :..j.| ..Julda|
|00003f00| 79 0d 13 74 12 20 e7 20 | 46 4c 41 47 28 31 29 3d |y..t. . |FLAG(1)=|
|00003f10| 31 20 e1 0d 13 7e 20 20 | 4d 4e 31 3d 4d 4e 3a 59 |1 ...~ |MN1=MN:Y|
|00003f20| 52 31 3d 59 52 3a 46 4c | 41 47 28 31 29 3d 31 3a |R1=YR:FL|AG(1)=1:|
|00003f30| 42 3d 30 0d 13 88 15 20 | e7 20 59 52 31 3c 30 20 |B=0.... |. YR1<0 |
|00003f40| 8c 20 59 52 31 2b 3d 31 | 0d 13 92 1c 20 e7 20 4d |. YR1+=1|.... . M|
|00003f50| 4e 3c 33 20 8c 20 4d 4e | 31 2b 3d 31 32 3a 59 52 |N<3 . MN|1+=12:YR|
|00003f60| 31 2d 3d 31 0d 13 9c 15 | 20 e7 20 59 52 3c 31 35 |1-=1....| . YR<15|
|00003f70| 38 32 20 8c 20 8d 64 44 | 53 0d 13 a6 1d 20 e7 20 |82 . .dD|S.... . |
|00003f80| 59 52 3d 31 35 38 32 20 | 80 20 4d 4e 3c 31 30 20 |YR=1582 |. MN<10 |
|00003f90| 8c 20 8d 64 44 53 0d 13 | b0 25 20 e7 20 59 52 3d |. .dDS..|.% . YR=|
|00003fa0| 31 35 38 32 20 80 20 4d | 4e 3d 31 30 20 80 20 44 |1582 . M|N=10 . D|
|00003fb0| 59 3c 31 35 20 8c 20 8d | 64 44 53 0d 13 ba 1e 20 |Y<15 . .|dDS.... |
|00003fc0| 41 3d a8 28 59 52 31 2f | 31 30 30 29 3a 42 3d 32 |A=.(YR1/|100):B=2|
|00003fd0| 2d 41 2b a8 28 41 2f 34 | 29 0d 13 c4 13 20 e7 20 |-A+.(A/4|).... . |
|00003fe0| 59 52 31 3c 30 20 8c 20 | 8d 64 58 53 0d 13 ce 22 |YR1<0 . |.dXS..."|
|00003ff0| 20 43 3d a8 28 33 36 35 | 2e 32 35 2a 59 52 31 29 | C=.(365|.25*YR1)|
|00004000| 2d 36 39 34 30 32 35 3a | e5 20 8d 64 62 53 0d 13 |-694025:|. .dbS..|
|00004010| d8 25 20 43 3d a4 49 54 | 47 28 28 33 36 35 2e 32 |.% C=.IT|G((365.2|
|00004020| 35 2a 59 52 31 29 2d 30 | 2e 37 35 29 2d 36 39 34 |5*YR1)-0|.75)-694|
|00004030| 30 32 35 0d 13 e2 19 20 | 44 3d a8 28 33 30 2e 36 |025.... |D=.(30.6|
|00004040| 30 30 31 2a 28 4d 4e 31 | 2b 31 29 29 0d 13 ec 15 |001*(MN1|+1))....|
|00004050| 20 44 4a 44 3d 42 2b 43 | 2b 44 2b 44 59 2d 30 2e | DJD=B+C|+D+DY-0.|
|00004060| 35 0d 13 f6 06 20 e1 0d | 14 00 06 20 3a 0d 14 0a |5.... ..|... :...|
|00004070| 0d 20 dd f2 43 61 6c 64 | 61 79 0d 14 14 12 20 e7 |. ..Cald|ay.... .|
|00004080| 20 46 4c 41 47 28 32 29 | 3d 31 20 e1 0d 14 1e 2c | FLAG(2)|=1 ....,|
|00004090| 20 dd a4 4c 49 46 28 57 | 29 3d a8 28 57 29 2d 28 | ..LIF(W|)=.(W)-(|
|000040a0| 46 4c 41 47 28 30 29 2d | 31 29 2a a8 28 28 b4 28 |FLAG(0)-|1)*.((.(|
|000040b0| 57 29 2d 31 29 2f 32 29 | 0d 14 28 1e 20 44 3d 44 |W)-1)/2)|..(. D=D|
|000040c0| 4a 44 2b 30 2e 35 3a 49 | 3d a4 4c 49 46 28 44 29 |JD+0.5:I|=.LIF(D)|
|000040d0| 3a 46 3d 44 2d 49 0d 14 | 32 15 20 e7 20 46 3d 31 |:F=D-I..|2. . F=1|
|000040e0| 20 8c 20 46 3d 30 3a 49 | 2b 3d 31 0d 14 3c 1a 20 | . F=0:I|+=1..<. |
|000040f0| e7 20 49 20 3c 3d 20 2d | 31 31 35 38 36 30 20 8c |. I <= -|115860 .|
|00004100| 20 8d 44 5a 54 0d 14 46 | 29 20 41 3d a4 4c 49 46 | .DZT..F|) A=.LIF|
|00004110| 28 28 49 2f 33 36 35 32 | 34 2e 32 35 29 2b 39 2e |((I/3652|4.25)+9.|
|00004120| 39 38 33 35 37 32 36 45 | 2d 31 29 2b 31 34 0d 14 |9835726E|-1)+14..|
|00004130| 50 16 20 49 3d 49 2b 31 | 2b 41 2d a4 4c 49 46 28 |P. I=I+1|+A-.LIF(|
|00004140| 41 2f 34 29 0d 14 5a 22 | 20 42 3d a4 4c 49 46 28 |A/4)..Z"| B=.LIF(|
|00004150| 28 49 2f 33 36 35 2e 32 | 35 29 2b 38 2e 30 32 36 |(I/365.2|5)+8.026|
|00004160| 30 31 45 2d 31 29 0d 14 | 64 29 20 43 45 3d 49 2d |01E-1)..|d) CE=I-|
|00004170| a4 4c 49 46 28 28 33 36 | 35 2e 32 35 2a 42 29 2b |.LIF((36|5.25*B)+|
|00004180| 37 2e 35 30 30 30 31 45 | 2d 31 29 2b 34 31 36 0d |7.50001E|-1)+416.|
|00004190| 14 6e 1e 20 47 3d a4 4c | 49 46 28 43 45 2f 33 30 |.n. G=.L|IF(CE/30|
|000041a0| 2e 36 30 30 31 29 3a 4d | 4e 3d 47 2d 31 0d 14 78 |.6001):M|N=G-1..x|
|000041b0| 26 20 44 59 3d 43 45 2d | a4 4c 49 46 28 33 30 2e |& DY=CE-|.LIF(30.|
|000041c0| 36 30 30 31 2a 47 29 2b | 46 3a 59 52 3d 42 2b 31 |6001*G)+|F:YR=B+1|
|000041d0| 38 39 39 0d 14 82 17 20 | e7 20 47 3e 31 33 2e 35 |899.... |. G>13.5|
|000041e0| 20 8c 20 4d 4e 3d 47 2d | 31 33 0d 14 8c 19 20 e7 | . MN=G-|13.... .|
|000041f0| 20 4d 4e 3c 32 2e 35 20 | 8c 20 59 52 3d 42 2b 31 | MN<2.5 |. YR=B+1|
|00004200| 39 30 30 0d 14 96 13 20 | e7 20 59 52 3c 31 20 8c |900.... |. YR<1 .|
|00004210| 20 59 52 2d 3d 31 0d 14 | a0 0e 20 46 4c 41 47 28 | YR-=1..|.. FLAG(|
|00004220| 32 29 3d 31 0d 14 aa 06 | 20 e1 0d 14 b4 06 20 3a |2)=1....| ..... :|
|00004230| 0d 14 be 0c 20 dd f2 47 | 74 69 6d 65 0d 14 c8 17 |.... ..G|time....|
|00004240| 20 e7 20 46 4c 41 47 28 | 33 29 3d 31 20 8c 20 8d | . FLAG(|3)=1 . .|
|00004250| 54 58 55 0d 14 d2 1c 20 | 58 4d 4e 3d 4d 4e 3a 58 |TXU.... |XMN=MN:X|
|00004260| 44 59 3d 44 59 3a 46 4c | 41 47 28 33 29 3d 31 0d |DY=DY:FL|AG(3)=1.|
|00004270| 14 dc 1f 20 46 4c 41 47 | 28 31 29 3d 30 3a f2 4a |... FLAG|(1)=0:.J|
|00004280| 75 6c 64 61 79 3a 58 44 | 4a 44 3d 44 4a 44 0d 14 |ulday:XD|JD=DJD..|
|00004290| e6 18 20 4d 4e 3d 31 3a | 44 59 3d 30 3a 46 4c 41 |.. MN=1:|DY=0:FLA|
|000042a0| 47 28 31 29 3d 30 0d 14 | f0 18 20 f2 4a 75 6c 64 |G(1)=0..|.. .Juld|
|000042b0| 61 79 3a 54 3d 44 4a 44 | 2f 33 36 35 32 35 0d 14 |ay:T=DJD|/36525..|
|000042c0| fa 2b 20 52 3d 36 2e 36 | 34 36 30 36 35 36 2b 28 |.+ R=6.6|460656+(|
|000042d0| 35 2e 31 32 36 32 45 2d | 32 2b 28 54 2a 32 2e 35 |5.1262E-|2+(T*2.5|
|000042e0| 38 31 45 2d 35 29 29 2a | 54 0d 15 04 2a 20 52 31 |81E-5))*|T...* R1|
|000042f0| 3d 32 34 30 30 2a 28 54 | 2d 28 28 59 52 2d 31 39 |=2400*(T|-((YR-19|
|00004300| 30 30 29 2f 31 30 30 29 | 29 3a 42 3d 32 34 2d 52 |00)/100)|):B=24-R|
|00004310| 2d 52 31 0d 15 0e 21 20 | 54 30 3d 28 28 58 44 4a |-R1...! |T0=((XDJ|
|00004320| 44 2d 44 4a 44 29 2a 36 | 2e 35 37 30 39 38 45 2d |D-DJD)*6|.57098E-|
|00004330| 32 29 2d 42 0d 15 18 13 | 20 e7 20 53 57 32 3d 31 |2)-B....| . SW2=1|
|00004340| 20 8c 20 8d 44 4a 55 0d | 15 22 14 20 e7 20 54 30 | . .DJU.|.". . T0|
|00004350| 3c 30 20 8c 20 54 30 2b | 3d 32 34 0d 15 2c 0f 20 |<0 . T0+|=24..,. |
|00004360| 47 54 4d 3d 54 49 4d 2d | 54 30 0d 15 36 16 20 e7 |GTM=TIM-|T0..6. .|
|00004370| 20 47 54 4d 3c 30 20 8c | 20 47 54 4d 2b 3d 32 34 | GTM<0 .| GTM+=24|
|00004380| 0d 15 40 22 20 47 54 4d | 3d 47 54 4d 2a 39 2e 39 |..@" GTM|=GTM*9.9|
|00004390| 37 32 36 39 35 36 37 37 | 45 2d 31 3a e5 20 8d 44 |72695677|E-1:. .D|
|000043a0| 68 55 0d 15 4a 1d 20 47 | 54 4d 3d 28 54 49 4d 2a |hU..J. G|TM=(TIM*|
|000043b0| 31 2e 30 30 32 37 33 37 | 39 30 38 29 2b 54 30 0d |1.002737|908)+T0.|
|000043c0| 15 54 17 20 e7 20 47 54 | 4d 3e 32 34 20 8c 20 47 |.T. . GT|M>24 . G|
|000043d0| 54 4d 2d 3d 32 34 0d 15 | 5e 16 20 e7 20 47 54 4d |TM-=24..|^. . GTM|
|000043e0| 3c 30 20 8c 20 47 54 4d | 2b 3d 32 34 0d 15 68 18 |<0 . GTM|+=24..h.|
|000043f0| 20 58 3d 47 54 4d 3a 53 | 57 31 3d 31 3a f2 4d 69 | X=GTM:S|W1=1:.Mi|
|00004400| 6e 73 65 63 0d 15 72 16 | 20 48 53 3d 58 44 3a 4d |nsec..r.| HS=XD:M|
|00004410| 53 3d 58 4d 3a 53 53 3d | 58 53 0d 15 7c 1b 20 4d |S=XM:SS=|XS..|. M|
|00004420| 4e 3d 58 4d 4e 3a 44 59 | 3d 58 44 59 3a 44 4a 44 |N=XMN:DY|=XDY:DJD|
|00004430| 3d 58 44 4a 44 0d 15 86 | 06 20 e1 0d 15 90 06 20 |=XDJD...|. ..... |
|00004440| 3a 0d 15 9a 0c 20 dd f2 | 45 71 68 6f 72 0d 15 a4 |:.... ..|Eqhor...|
|00004450| 17 20 e7 20 46 4c 41 47 | 28 34 29 3d 31 20 8c 20 |. . FLAG|(4)=1 . |
|00004460| 8d 64 56 55 0d 15 ae 1c | 20 43 50 48 49 3d 9b 28 |.dVU....| CPHI=.(|
|00004470| 50 48 49 29 3a 53 50 48 | 49 3d b5 28 50 48 49 29 |PHI):SPH|I=.(PHI)|
|00004480| 0d 15 b8 23 20 dd a4 41 | 53 4e 28 57 29 3d 99 28 |...# ..A|SN(W)=.(|
|00004490| 57 2f 28 b6 28 31 2d 57 | 2a 57 29 2b 31 45 2d 32 |W/(.(1-W|*W)+1E-2|
|000044a0| 30 29 29 0d 15 c2 21 20 | dd a4 41 43 53 28 57 29 |0))...! |..ACS(W)|
|000044b0| 3d 31 2e 35 37 30 37 39 | 36 33 32 37 2d a4 41 53 |=1.57079|6327-.AS|
|000044c0| 4e 28 57 29 0d 15 cc 16 | 20 46 4c 41 47 28 34 29 |N(W)....| FLAG(4)|
|000044d0| 3d 31 3a 54 50 49 3d 32 | 2a af 0d 15 d6 14 20 53 |=1:TPI=2|*..... S|
|000044e0| 59 3d b5 28 59 29 3a 43 | 59 3d 9b 28 59 29 0d 15 |Y=.(Y):C|Y=.(Y)..|
|000044f0| e0 14 20 53 58 3d b5 28 | 58 29 3a 43 58 3d 9b 28 |.. SX=.(|X):CX=.(|
|00004500| 58 29 0d 15 ea 1e 20 53 | 51 3d 28 53 59 2a 53 50 |X).... S|Q=(SY*SP|
|00004510| 48 49 29 2b 28 43 59 2a | 43 50 48 49 2a 43 58 29 |HI)+(CY*|CPHI*CX)|
|00004520| 0d 15 f4 21 20 51 3d a4 | 41 53 4e 28 53 51 29 3a |...! Q=.|ASN(SQ):|
|00004530| 43 51 3d 9b 28 51 29 3a | 41 3d 43 50 48 49 2a 43 |CQ=.(Q):|A=CPHI*C|
|00004540| 51 0d 15 fe 18 20 e7 20 | 41 3c 31 45 2d 32 30 20 |Q.... . |A<1E-20 |
|00004550| 8c 20 41 3d 31 45 2d 32 | 30 0d 16 08 23 20 43 50 |. A=1E-2|0...# CP|
|00004560| 3d 28 53 59 2d 28 53 50 | 48 49 2a 53 51 29 29 2f |=(SY-(SP|HI*SQ))/|
|00004570| 41 3a 50 3d a4 41 43 53 | 28 43 50 29 0d 16 12 15 |A:P=.ACS|(CP)....|
|00004580| 20 e7 20 53 58 3e 30 20 | 8c 20 50 3d 54 50 49 2d | . SX>0 |. P=TPI-|
|00004590| 50 0d 16 1c 06 20 e1 0d | 16 26 06 20 3a 0d 16 30 |P.... ..|.&. :..0|
|000045a0| 0c 20 dd f2 48 72 61 6e | 67 0d 16 3a 11 20 4c 53 |. ..Hran|g..:. LS|
|000045b0| 54 3d 47 53 54 2b 4c 4f | 4e 47 0d 16 44 1a 20 e7 |T=GST+LO|NG..D. .|
|000045c0| 20 4c 53 54 3e 32 34 20 | 8c 20 4c 53 54 3d 4c 53 | LST>24 |. LST=LS|
|000045d0| 54 2d 32 34 0d 16 4e 19 | 20 e7 20 4c 53 54 3c 30 |T-24..N.| . LST<0|
|000045e0| 20 8c 20 4c 53 54 3d 4c | 53 54 2b 32 34 0d 16 58 | . LST=L|ST+24..X|
|000045f0| 0c 20 50 3d 4c 53 54 2d | 58 0d 16 62 13 20 e7 20 |. P=LST-|X..b. . |
|00004600| 50 3c 30 20 8c 20 50 3d | 50 2b 32 34 0d 16 6c 06 |P<0 . P=|P+24..l.|
|00004610| 20 e1 0d 16 76 06 20 3a | 0d 16 80 0c 20 dd f2 4f | ...v. :|.... ..O|
|00004620| 62 6c 69 71 0d 16 8a 12 | 20 e7 20 46 4c 41 47 28 |bliq....| . FLAG(|
|00004630| 35 29 3d 31 20 e1 0d 16 | 94 0e 20 46 4c 41 47 28 |5)=1 ...|.. FLAG(|
|00004640| 35 29 3d 31 0d 16 9e 18 | 20 f2 4a 75 6c 64 61 79 |5)=1....| .Julday|
|00004650| 3a 54 3d 44 4a 44 2f 33 | 36 35 32 35 0d 16 a8 2b |:T=DJD/3|6525...+|
|00004660| 20 43 3d 28 28 28 2d 31 | 2e 38 31 45 2d 33 2a 54 | C=(((-1|.81E-3*T|
|00004670| 29 2b 35 2e 39 45 2d 33 | 29 2a 54 2b 34 2e 36 38 |)+5.9E-3|)*T+4.68|
|00004680| 34 35 45 31 29 2a 54 0d | 16 b2 1f 20 45 50 53 3d |45E1)*T.|... EPS=|
|00004690| 32 2e 33 34 35 32 32 39 | 34 34 34 45 31 2d 28 43 |2.345229|444E1-(C|
|000046a0| 2f 33 36 30 30 29 0d 16 | bc 1c 20 45 50 53 52 3d |/3600)..|.. EPSR=|
|000046b0| 45 50 53 2a 31 2e 37 35 | 34 33 32 39 32 35 32 45 |EPS*1.75|4329252E|
|000046c0| 2d 32 0d 16 c6 06 20 e1 | 0d 16 d0 06 20 3a 0d 16 |-2.... .|.... :..|
|000046d0| da 0c 20 dd f2 45 71 65 | 63 6c 0d 16 e4 17 20 e7 |.. ..Eqe|cl.... .|
|000046e0| 20 46 4c 41 47 28 37 29 | 3d 31 20 8c 20 8d 54 60 | FLAG(7)|=1 . .T`|
|000046f0| 57 0d 16 ee 23 20 dd a4 | 41 53 4e 28 57 29 3d 99 |W...# ..|ASN(W)=.|
|00004700| 28 57 2f 28 b6 28 31 2d | 57 2a 57 29 2b 31 45 2d |(W/(.(1-|W*W)+1E-|
|00004710| 32 30 29 29 0d 16 f8 16 | 20 54 50 49 3d 32 2a af |20))....| TPI=2*.|
|00004720| 3a 46 4c 41 47 28 37 29 | 3d 31 0d 17 02 19 20 e7 |:FLAG(7)|=1.... .|
|00004730| 20 46 4c 41 47 28 36 29 | 3d 30 20 8c 20 44 45 50 | FLAG(6)|=0 . DEP|
|00004740| 53 3d 30 0d 17 0c 1f 20 | f2 4f 62 6c 69 71 3a 45 |S=0.... |.Obliq:E|
|00004750| 50 53 31 3d a4 52 41 44 | 28 45 50 53 2b 44 45 50 |PS1=.RAD|(EPS+DEP|
|00004760| 53 29 0d 17 16 1e 20 53 | 45 50 53 3d b5 28 45 50 |S).... S|EPS=.(EP|
|00004770| 53 31 29 3a 43 45 50 53 | 3d 9b 28 45 50 53 31 29 |S1):CEPS|=.(EPS1)|
|00004780| 0d 17 20 14 20 43 59 3d | 9b 28 59 29 3a 53 59 3d |.. . CY=|.(Y):SY=|
|00004790| b5 28 59 29 0d 17 2a 1d | 20 e7 20 94 28 43 59 29 |.(Y)..*.| . .(CY)|
|000047a0| 3c 31 45 2d 32 30 20 8c | 20 43 59 3d 31 45 2d 32 |<1E-20 .| CY=1E-2|
|000047b0| 30 0d 17 34 1d 20 54 59 | 3d 53 59 2f 43 59 3a 43 |0..4. TY|=SY/CY:C|
|000047c0| 58 3d 9b 28 58 29 3a 53 | 58 3d b5 28 58 29 0d 17 |X=.(X):S|X=.(X)..|
|000047d0| 3e 22 20 53 51 3d 28 53 | 59 2a 43 45 50 53 29 2d |>" SQ=(S|Y*CEPS)-|
|000047e0| 28 43 59 2a 53 45 50 53 | 2a 53 58 2a 53 57 33 29 |(CY*SEPS|*SX*SW3)|
|000047f0| 0d 17 48 29 20 51 3d a4 | 41 53 4e 28 53 51 29 3a |..H) Q=.|ASN(SQ):|
|00004800| 41 3d 28 53 58 2a 43 45 | 50 53 29 2b 28 54 59 2a |A=(SX*CE|PS)+(TY*|
|00004810| 53 45 50 53 2a 53 57 33 | 29 0d 17 52 0e 20 50 3d |SEPS*SW3|)..R. P=|
|00004820| 99 28 41 2f 43 58 29 0d | 17 5c 13 20 e7 20 43 58 |.(A/CX).|.\. . CX|
|00004830| 3c 30 20 8c 20 50 3d 50 | 2b af 0d 17 66 16 20 e7 |<0 . P=P|+...f. .|
|00004840| 20 50 3e 54 50 49 20 8c | 20 50 3d 50 2d 54 50 49 | P>TPI .| P=P-TPI|
|00004850| 0d 17 70 14 20 e7 20 50 | 3c 30 20 8c 20 50 3d 50 |..p. . P|<0 . P=P|
|00004860| 2b 54 50 49 0d 17 7a 06 | 20 e1 0d 17 84 06 20 3a |+TPI..z.| ..... :|
|00004870| 0d 17 8e 0c 20 dd f2 4e | 75 74 61 74 0d 17 98 12 |.... ..N|utat....|
|00004880| 20 e7 20 46 4c 41 47 28 | 36 29 3d 31 20 e1 0d 17 | . FLAG(|6)=1 ...|
|00004890| a2 1e 20 dd a4 52 41 44 | 28 57 29 3d 31 2e 37 34 |.. ..RAD|(W)=1.74|
|000048a0| 35 33 32 39 32 35 32 45 | 2d 32 2a 57 0d 17 ac 18 |5329252E|-2*W....|
|000048b0| 20 46 4c 41 47 28 36 29 | 3d 31 3a 46 4c 41 47 28 | FLAG(6)|=1:FLAG(|
|000048c0| 37 29 3d 30 0d 17 b6 1f | 20 f2 4a 75 6c 64 61 79 |7)=0....| .Julday|
|000048d0| 3a 54 3d 44 4a 44 2f 33 | 36 35 32 35 3a 54 32 3d |:T=DJD/3|6525:T2=|
|000048e0| 54 2a 54 0d 17 c0 25 20 | 41 3d 31 2e 30 30 30 30 |T*T...% |A=1.0000|
|000048f0| 32 31 33 35 38 45 32 2a | 54 3a 42 3d 33 36 30 2a |21358E2*|T:B=360*|
|00004900| 28 41 2d a8 28 41 29 29 | 0d 17 ca 1f 20 4c 53 3d |(A-.(A))|.... LS=|
|00004910| 32 2e 37 39 36 39 36 37 | 45 32 2b 33 2e 30 33 45 |2.796967|E2+3.03E|
|00004920| 2d 34 2a 54 32 2b 42 0d | 17 d4 25 20 41 3d 31 2e |-4*T2+B.|..% A=1.|
|00004930| 33 33 36 38 35 35 32 33 | 31 45 33 2a 54 3a 42 3d |33685523|1E3*T:B=|
|00004940| 33 36 30 2a 28 41 2d a8 | 28 41 29 29 0d 17 de 20 |360*(A-.|(A))... |
|00004950| 20 4c 44 3d 32 2e 37 30 | 34 33 34 32 45 32 2d 31 | LD=2.70|4342E2-1|
|00004960| 2e 31 33 33 45 2d 33 2a | 54 32 2b 42 0d 17 e8 25 |.133E-3*|T2+B...%|
|00004970| 20 41 3d 39 2e 39 39 39 | 37 33 36 30 35 36 45 31 | A=9.999|736056E1|
|00004980| 2a 54 3a 42 3d 33 36 30 | 2a 28 41 2d a8 28 41 29 |*T:B=360|*(A-.(A)|
|00004990| 29 0d 17 f2 1e 20 4d 53 | 3d 33 2e 35 38 34 37 35 |).... MS|=3.58475|
|000049a0| 38 45 32 2d 31 2e 35 45 | 2d 34 2a 54 32 2b 42 0d |8E2-1.5E|-4*T2+B.|
|000049b0| 17 fc 25 20 41 3d 31 2e | 33 32 35 35 35 32 33 35 |..% A=1.|32555235|
|000049c0| 39 45 33 2a 54 3a 42 3d | 33 36 30 2a 28 41 2d a8 |9E3*T:B=|360*(A-.|
|000049d0| 28 41 29 29 0d 18 06 20 | 20 4d 44 3d 32 2e 39 36 |(A))... | MD=2.96|
|000049e0| 31 30 34 36 45 32 2b 39 | 2e 31 39 32 45 2d 33 2a |1046E2+9|.192E-3*|
|000049f0| 54 32 2b 42 0d 18 10 23 | 20 41 3d 35 2e 33 37 32 |T2+B...#| A=5.372|
|00004a00| 36 31 36 36 36 37 2a 54 | 3a 42 3d 33 36 30 2a 28 |616667*T|:B=360*(|
|00004a10| 41 2d a8 28 41 29 29 0d | 18 1a 20 20 4e 4d 3d 32 |A-.(A)).|.. NM=2|
|00004a20| 2e 35 39 31 38 33 33 45 | 32 2b 32 2e 30 37 38 45 |.591833E|2+2.078E|
|00004a30| 2d 33 2a 54 32 2d 42 0d | 18 24 1f 20 54 4c 53 3d |-3*T2-B.|.$. TLS=|
|00004a40| 32 2a a4 52 41 44 28 4c | 53 29 3a 4e 4d 3d a4 52 |2*.RAD(L|S):NM=.R|
|00004a50| 41 44 28 4e 4d 29 0d 18 | 2e 1f 20 54 4e 4d 3d 32 |AD(NM)..|.. TNM=2|
|00004a60| 2a a4 52 41 44 28 4e 4d | 29 3a 4d 53 3d a4 52 41 |*.RAD(NM|):MS=.RA|
|00004a70| 44 28 4d 53 29 0d 18 38 | 1f 20 54 4c 44 3d 32 2a |D(MS)..8|. TLD=2*|
|00004a80| a4 52 41 44 28 4c 44 29 | 3a 4d 44 3d a4 52 41 44 |.RAD(LD)|:MD=.RAD|
|00004a90| 28 4d 44 29 0d 18 42 da | 20 44 50 53 49 3d 28 2d |(MD)..B.| DPSI=(-|
|00004aa0| 31 37 2e 32 33 32 37 2d | 31 2e 37 33 37 45 2d 32 |17.2327-|1.737E-2|
|00004ab0| 2a 54 29 2a b5 28 4e 4d | 29 2b 28 2d 31 2e 32 37 |*T)*.(NM|)+(-1.27|
|00004ac0| 32 39 2d 31 2e 33 45 2d | 34 2a 54 29 2a b5 28 54 |29-1.3E-|4*T)*.(T|
|00004ad0| 4c 53 29 2b 32 2e 30 38 | 38 45 2d 31 2a b5 28 54 |LS)+2.08|8E-1*.(T|
|00004ae0| 4e 4d 29 2d 32 2e 30 33 | 37 45 2d 31 2a b5 28 54 |NM)-2.03|7E-1*.(T|
|00004af0| 4c 44 29 2b 28 31 2e 32 | 36 31 45 2d 31 2d 33 2e |LD)+(1.2|61E-1-3.|
|00004b00| 31 45 2d 34 2a 54 29 2a | b5 28 4d 53 29 2b 36 2e |1E-4*T)*|.(MS)+6.|
|00004b10| 37 35 45 2d 32 2a b5 28 | 4d 44 29 2d 28 34 2e 39 |75E-2*.(|MD)-(4.9|
|00004b20| 37 45 2d 32 2d 31 2e 32 | 45 2d 34 2a 54 29 2a b5 |7E-2-1.2|E-4*T)*.|
|00004b30| 28 54 4c 53 2b 4d 53 29 | 2d 33 2e 34 32 45 2d 32 |(TLS+MS)|-3.42E-2|
|00004b40| 2a b5 28 54 4c 44 2d 4e | 4d 29 2d 32 2e 36 31 45 |*.(TLD-N|M)-2.61E|
|00004b50| 2d 32 2a b5 28 54 4c 44 | 2b 4d 44 29 2b 32 2e 31 |-2*.(TLD|+MD)+2.1|
|00004b60| 34 45 2d 32 2a b5 28 54 | 4c 53 2d 4d 53 29 0d 18 |4E-2*.(T|LS-MS)..|
|00004b70| 4c 48 20 44 50 53 49 3d | 44 50 53 49 2d 31 2e 34 |LH DPSI=|DPSI-1.4|
|00004b80| 39 45 2d 32 2a b5 28 54 | 4c 53 2d 54 4c 44 2b 4d |9E-2*.(T|LS-TLD+M|
|00004b90| 44 29 2b 31 2e 32 34 45 | 2d 32 2a b5 28 54 4c 53 |D)+1.24E|-2*.(TLS|
|00004ba0| 2d 4e 4d 29 2b 31 2e 31 | 34 45 2d 32 2a b5 28 54 |-NM)+1.1|4E-2*.(T|
|00004bb0| 4c 44 2d 4d 44 29 0d 18 | 56 b0 20 44 45 50 53 3d |LD-MD)..|V. DEPS=|
|00004bc0| 28 39 2e 32 31 2b 39 2e | 31 45 2d 34 2a 54 29 2a |(9.21+9.|1E-4*T)*|
|00004bd0| 9b 28 4e 4d 29 2b 28 35 | 2e 35 32 32 45 2d 31 2d |.(NM)+(5|.522E-1-|
|00004be0| 32 2e 39 45 2d 34 2a 54 | 29 2a 9b 28 54 4c 53 29 |2.9E-4*T|)*.(TLS)|
|00004bf0| 2d 39 2e 30 34 45 2d 32 | 2a 9b 28 54 4e 4d 29 2b |-9.04E-2|*.(TNM)+|
|00004c00| 38 2e 38 34 45 2d 32 2a | 9b 28 54 4c 44 29 2b 32 |8.84E-2*|.(TLD)+2|
|00004c10| 2e 31 36 45 2d 32 2a 9b | 28 54 4c 53 2b 4d 53 29 |.16E-2*.|(TLS+MS)|
|00004c20| 2b 31 2e 38 33 45 2d 32 | 2a 9b 28 54 4c 44 2d 4e |+1.83E-2|*.(TLD-N|
|00004c30| 4d 29 2b 31 2e 31 33 45 | 2d 32 2a 9b 28 54 4c 44 |M)+1.13E|-2*.(TLD|
|00004c40| 2b 4d 44 29 2d 39 2e 33 | 45 2d 33 2a 9b 28 54 4c |+MD)-9.3|E-3*.(TL|
|00004c50| 53 2d 4d 53 29 2d 36 2e | 36 45 2d 33 2a 9b 28 54 |S-MS)-6.|6E-3*.(T|
|00004c60| 4c 53 2d 4e 4d 29 0d 18 | 60 22 20 44 50 53 49 3d |LS-NM)..|`" DPSI=|
|00004c70| 44 50 53 49 2f 33 36 30 | 30 3a 44 45 50 53 3d 44 |DPSI/360|0:DEPS=D|
|00004c80| 45 50 53 2f 33 36 30 30 | 0d 18 6a 06 20 e1 0d 18 |EPS/3600|..j. ...|
|00004c90| 74 06 20 3a 0d 18 7e 0e | 20 dd f2 41 6e 6f 6d 61 |t. :..~.| ..Anoma|
|00004ca0| 6c 79 0d 18 88 0c 20 54 | 50 49 3d 32 2a af 0d 18 |ly.... T|PI=2*...|
|00004cb0| 92 1c 20 4d 3d 4d 41 2d | 54 50 49 2a a8 28 4d 41 |.. M=MA-|TPI*.(MA|
|00004cc0| 2f 54 50 49 29 3a 45 41 | 3d 4d 0d 18 9c 17 20 44 |/TPI):EA|=M.... D|
|00004cd0| 4c 41 3d 45 41 2d 28 53 | 2a b5 28 45 41 29 29 2d |LA=EA-(S|*.(EA))-|
|00004ce0| 4d 0d 18 a6 18 20 e7 20 | 94 28 44 4c 41 29 3c 31 |M.... . |.(DLA)<1|
|00004cf0| 45 2d 36 20 8c 8d 64 44 | 58 0d 18 b0 1a 20 44 4c |E-6 ..dD|X.... DL|
|00004d00| 41 3d 44 4c 41 2f 28 31 | 2d 28 53 2a 9b 28 45 41 |A=DLA/(1|-(S*.(EA|
|00004d10| 29 29 29 0d 18 ba 15 20 | 45 41 3d 45 41 2d 44 4c |))).... |EA=EA-DL|
|00004d20| 41 3a e5 20 8d 74 5c 58 | 0d 18 c4 20 20 54 4e 55 |A:. .t\X|... TNU|
|00004d30| 32 3d b6 28 28 31 2b 53 | 29 2f 28 31 2d 53 29 29 |2=.((1+S|)/(1-S))|
|00004d40| 2a b7 28 45 41 2f 32 29 | 0d 18 ce 11 20 4e 55 3d |*.(EA/2)|.... NU=|
|00004d50| 32 2a 99 28 54 4e 55 32 | 29 0d 18 d8 06 20 e1 0d |2*.(TNU2|).... ..|
|00004d60| 18 e2 06 20 3a 0d 18 ec | 0a 20 dd f2 53 75 6e 0d |... :...|. ..Sun.|
|00004d70| 18 f6 1f 20 f2 4a 75 6c | 64 61 79 3a 54 3d 44 4a |... .Jul|day:T=DJ|
|00004d80| 44 2f 33 36 35 32 35 3a | 54 32 3d 54 2a 54 0d 19 |D/36525:|T2=T*T..|
|00004d90| 00 1e 20 dd a4 52 41 44 | 28 57 29 3d 31 2e 37 34 |.. ..RAD|(W)=1.74|
|00004da0| 35 33 32 39 32 35 32 45 | 2d 32 2a 57 0d 19 0a 25 |5329252E|-2*W...%|
|00004db0| 20 41 3d 31 2e 30 30 30 | 30 32 31 33 35 39 45 32 | A=1.000|021359E2|
|00004dc0| 2a 54 3a 42 3d 33 36 30 | 2a 28 41 2d a8 28 41 29 |*T:B=360|*(A-.(A)|
|00004dd0| 29 0d 19 14 21 20 4c 53 | 3d 32 2e 37 39 36 39 36 |)...! LS|=2.79696|
|00004de0| 36 38 45 32 2b 33 2e 30 | 32 35 45 2d 34 2a 54 32 |68E2+3.0|25E-4*T2|
|00004df0| 2b 42 0d 19 1e 25 20 41 | 3d 39 2e 39 39 39 37 33 |+B...% A|=9.99973|
|00004e00| 36 30 34 32 45 31 2a 54 | 3a 42 3d 33 36 30 2a 28 |6042E1*T|:B=360*(|
|00004e10| 41 2d a8 28 41 29 29 0d | 19 28 2a 20 4d 53 3d 33 |A-.(A)).|.(* MS=3|
|00004e20| 2e 35 38 34 37 35 38 33 | 45 32 2d 28 31 2e 35 45 |.5847583|E2-(1.5E|
|00004e30| 2d 34 2b 33 2e 33 45 2d | 36 2a 54 29 2a 54 32 2b |-4+3.3E-|6*T)*T2+|
|00004e40| 42 0d 19 32 27 20 53 3d | 31 2e 36 37 35 31 30 34 |B..2' S=|1.675104|
|00004e50| 45 2d 32 2d 34 2e 31 38 | 45 2d 35 2a 54 2d 31 2e |E-2-4.18|E-5*T-1.|
|00004e60| 32 36 45 2d 37 2a 54 32 | 0d 19 3c 19 20 4d 41 3d |26E-7*T2|..<. MA=|
|00004e70| a4 52 41 44 28 4d 53 29 | 3a f2 41 6e 6f 6d 61 6c |.RAD(MS)|:.Anomal|
|00004e80| 79 0d 19 46 25 20 41 3d | 36 2e 32 35 35 32 30 39 |y..F% A=|6.255209|
|00004e90| 34 37 32 45 31 2a 54 3a | 42 3d 33 36 30 2a 28 41 |472E1*T:|B=360*(A|
|00004ea0| 2d a8 28 41 29 29 0d 19 | 50 16 20 41 31 3d a4 52 |-.(A))..|P. A1=.R|
|00004eb0| 41 44 28 31 35 33 2e 32 | 33 2b 42 29 0d 19 5a 25 |AD(153.2|3+B)..Z%|
|00004ec0| 20 41 3d 31 2e 32 35 31 | 30 34 31 38 39 34 45 32 | A=1.251|041894E2|
|00004ed0| 2a 54 3a 42 3d 33 36 30 | 2a 28 41 2d a8 28 41 29 |*T:B=360|*(A-.(A)|
|00004ee0| 29 0d 19 64 16 20 42 31 | 3d a4 52 41 44 28 32 31 |)..d. B1|=.RAD(21|
|00004ef0| 36 2e 35 37 2b 42 29 0d | 19 6e 25 20 41 3d 39 2e |6.57+B).|.n% A=9.|
|00004f00| 31 35 36 37 36 36 30 32 | 38 45 31 2a 54 3a 42 3d |15676602|8E1*T:B=|
|00004f10| 33 36 30 2a 28 41 2d a8 | 28 41 29 29 0d 19 78 16 |360*(A-.|(A))..x.|
|00004f20| 20 43 31 3d a4 52 41 44 | 28 33 31 32 2e 36 39 2b | C1=.RAD|(312.69+|
|00004f30| 42 29 0d 19 82 25 20 41 | 3d 31 2e 32 33 36 38 35 |B)...% A|=1.23685|
|00004f40| 33 30 39 35 45 33 2a 54 | 3a 42 3d 33 36 30 2a 28 |3095E3*T|:B=360*(|
|00004f50| 41 2d a8 28 41 29 29 0d | 19 8c 21 20 44 31 3d a4 |A-.(A)).|..! D1=.|
|00004f60| 52 41 44 28 33 35 30 2e | 37 34 2d 31 2e 34 34 45 |RAD(350.|74-1.44E|
|00004f70| 2d 33 2a 54 32 2b 42 29 | 0d 19 96 1b 20 45 31 3d |-3*T2+B)|.... E1=|
|00004f80| a4 52 41 44 28 32 33 31 | 2e 31 39 2b 32 30 2e 32 |.RAD(231|.19+20.2|
|00004f90| 2a 54 29 0d 19 a0 25 20 | 41 3d 31 2e 38 33 31 33 |*T)...% |A=1.8313|
|00004fa0| 35 33 32 30 38 45 32 2a | 54 3a 42 3d 33 36 30 2a |53208E2*|T:B=360*|
|00004fb0| 28 41 2d a8 28 41 29 29 | 0d 19 aa 15 20 48 31 3d |(A-.(A))|.... H1=|
|00004fc0| a4 52 41 44 28 33 35 33 | 2e 34 2b 42 29 0d 19 b4 |.RAD(353|.4+B)...|
|00004fd0| 4a 20 44 4c 3d 31 2e 33 | 34 45 2d 33 2a 9b 28 41 |J DL=1.3|4E-3*.(A|
|00004fe0| 31 29 2b 31 2e 35 34 45 | 2d 33 2a 9b 28 42 31 29 |1)+1.54E|-3*.(B1)|
|00004ff0| 2b 32 45 2d 33 2a 9b 28 | 43 31 29 2b 31 2e 37 39 |+2E-3*.(|C1)+1.79|
|00005000| 45 2d 33 2a b5 28 44 31 | 29 2b 31 2e 37 38 45 2d |E-3*.(D1|)+1.78E-|
|00005010| 33 2a b5 28 45 31 29 0d | 19 be 50 20 44 52 3d 35 |3*.(E1).|..P DR=5|
|00005020| 2e 34 33 45 2d 36 2a b5 | 28 41 31 29 2b 31 2e 35 |.43E-6*.|(A1)+1.5|
|00005030| 37 35 45 2d 35 2a b5 28 | 42 31 29 2b 31 2e 36 32 |75E-5*.(|B1)+1.62|
|00005040| 37 45 2d 35 2a b5 28 43 | 31 29 2b 33 2e 30 37 36 |7E-5*.(C|1)+3.076|
|00005050| 45 2d 35 2a 9b 28 44 31 | 29 2b 39 2e 32 37 45 2d |E-5*.(D1|)+9.27E-|
|00005060| 36 2a b5 28 48 31 29 0d | 19 c8 22 20 4c 53 4e 3d |6*.(H1).|.." LSN=|
|00005070| 4e 55 2b a4 52 41 44 28 | 4c 53 2d 4d 53 2b 44 4c |NU+.RAD(|LS-MS+DL|
|00005080| 29 3a 54 50 49 3d 32 2a | af 0d 19 d2 21 20 52 53 |):TPI=2*|....! RS|
|00005090| 4e 3d 31 2e 30 30 30 30 | 30 30 32 2a 28 31 2d 53 |N=1.0000|002*(1-S|
|000050a0| 2a 9b 28 45 41 29 29 2b | 44 52 0d 19 dc 20 20 e7 |*.(EA))+|DR... .|
|000050b0| 20 4c 53 4e 3c 30 20 8c | 20 4c 53 4e 3d 4c 53 4e | LSN<0 .| LSN=LSN|
|000050c0| 2b 54 50 49 3a e5 8d 64 | 5c 59 0d 19 e6 23 20 e7 |+TPI:..d|\Y...# .|
|000050d0| 20 4c 53 4e 3e 54 50 49 | 20 8c 20 4c 53 4e 3d 4c | LSN>TPI| . LSN=L|
|000050e0| 53 4e 2d 54 50 49 3a e5 | 20 8d 64 66 59 0d 19 f0 |SN-TPI:.| .dfY...|
|000050f0| 06 20 e1 0d 19 fa 06 20 | 3a 0d 1a 04 0c 20 dd f2 |. ..... |:.... ..|
|00005100| 53 75 6e 72 73 0d 1a 0e | 16 20 44 59 30 3d 44 59 |Sunrs...|. DY0=DY|
|00005110| 3a 44 59 3d 44 59 30 2b | 30 2e 35 0d 1a 18 0d 20 |:DY=DY0+|0.5.... |
|00005120| f2 53 75 6e 72 73 75 6e | 0d 1a 22 12 20 e7 20 45 |.Sunrsun|..". . E|
|00005130| 52 52 31 20 3c 3e 20 30 | 20 e1 0d 1a 2c 22 20 41 |RR1 <> 0| ...," A|
|00005140| 4c 3d 4c 4f 4e 47 3a 54 | 52 3d 4c 53 54 52 2d 41 |L=LONG:T|R=LSTR-A|
|00005150| 4c 3a 54 53 3d 4c 53 54 | 53 2d 41 4c 0d 1a 36 22 |L:TS=LST|S-AL..6"|
|00005160| 20 f2 43 6f 72 72 65 63 | 74 3a 44 59 3d 44 59 30 | .Correc|t:DY=DY0|
|00005170| 3a 54 49 4d 3d 54 52 3a | 53 57 32 3d 2d 31 0d 1a |:TIM=TR:|SW2=-1..|
|00005180| 40 19 20 f2 47 74 69 6d | 65 3a 45 52 52 32 3d 30 |@. .Gtim|e:ERR2=0|
|00005190| 3a 45 52 52 33 3d 30 0d | 1a 4a 1c 20 e7 20 47 54 |:ERR3=0.|.J. . GT|
|000051a0| 4d 3c 36 2e 35 35 32 45 | 2d 32 20 8c 20 45 52 52 |M<6.552E|-2 . ERR|
|000051b0| 33 3d 31 0d 1a 54 1b 20 | 47 54 4d 52 3d 47 54 4d |3=1..T. |GTMR=GTM|
|000051c0| 3a 54 49 4d 3d 54 53 3a | f2 47 74 69 6d 65 0d 1a |:TIM=TS:|.Gtime..|
|000051d0| 5e 16 20 47 54 4d 53 3d | 47 54 4d 3a 44 4a 44 30 |^. GTMS=|GTM:DJD0|
|000051e0| 3d 44 4a 44 0d 1a 68 1e | 20 44 4a 44 3d 44 4a 44 |=DJD..h.| DJD=DJD|
|000051f0| 30 2b 47 54 4d 52 2f 32 | 34 3a f2 53 75 6e 72 73 |0+GTMR/2|4:.Sunrs|
|00005200| 75 6e 0d 1a 72 11 20 e7 | 20 45 52 52 31 20 3c 3e |un..r. .| ERR1 <>|
|00005210| 30 20 e1 0d 1a 7c 18 20 | 41 5a 52 30 3d 41 5a 52 |0 ...|. |AZR0=AZR|
|00005220| 3a 54 52 3d 4c 53 54 52 | 2d 41 4c 0d 1a 86 1e 20 |:TR=LSTR|-AL.... |
|00005230| 44 4a 44 3d 44 4a 44 30 | 2b 47 54 4d 53 2f 32 34 |DJD=DJD0|+GTMS/24|
|00005240| 3a f2 53 75 6e 72 73 75 | 6e 0d 1a 90 11 20 e7 20 |:.Sunrsu|n.... . |
|00005250| 45 52 52 31 20 3c 3e 30 | 20 e1 0d 1a 9a 06 20 3a |ERR1 <>0| ..... :|
|00005260| 0d 1a a4 21 20 41 5a 53 | 30 3d 41 5a 53 3a 54 53 |...! AZS|0=AZS:TS|
|00005270| 3d 4c 53 54 53 2d 41 4c | 3a f2 43 6f 72 72 65 63 |=LSTS-AL|:.Correc|
|00005280| 74 0d 1a ae 12 20 54 49 | 4d 3d 54 52 3a f2 47 74 |t.... TI|M=TR:.Gt|
|00005290| 69 6d 65 0d 1a b8 1c 20 | e7 20 47 54 4d 3c 36 2e |ime.... |. GTM<6.|
|000052a0| 35 35 32 45 2d 32 20 8c | 20 45 52 52 32 3d 31 0d |552E-2 .| ERR2=1.|
|000052b0| 1a c2 19 20 48 53 52 3d | 48 53 3a 4d 53 52 3d 4d |... HSR=|HS:MSR=M|
|000052c0| 53 3a 53 53 52 3d 53 53 | 0d 1a cc 12 20 54 49 4d |S:SSR=SS|.... TIM|
|000052d0| 3d 54 53 3a f2 47 74 69 | 6d 65 0d 1a d6 1c 20 e7 |=TS:.Gti|me.... .|
|000052e0| 20 47 54 4d 3c 36 2e 35 | 35 32 45 2d 32 20 8c 20 | GTM<6.5|52E-2 . |
|000052f0| 45 52 52 33 3d 31 0d 1a | e0 19 20 48 53 53 3d 48 |ERR3=1..|.. HSS=H|
|00005300| 53 3a 4d 53 53 3d 4d 53 | 3a 53 53 53 3d 53 53 0d |S:MSS=MS|:SSS=SS.|
|00005310| 1a ea 06 20 e1 0d 1a f4 | 06 20 3a 0d 1a fe 0e 20 |... ....|. :.... |
|00005320| dd f2 43 6f 72 72 65 63 | 74 0d 1b 08 16 20 e7 20 |..Correc|t.... . |
|00005330| 54 52 3c 30 20 8c 20 54 | 52 3d 54 52 2b 32 34 0d |TR<0 . T|R=TR+24.|
|00005340| 1b 12 16 20 e7 20 54 53 | 3c 30 20 8c 20 54 53 3d |... . TS|<0 . TS=|
|00005350| 54 53 2b 32 34 0d 1b 1c | 17 20 e7 20 54 52 3e 32 |TS+24...|. . TR>2|
|00005360| 34 20 8c 20 54 52 3d 54 | 52 2d 32 34 0d 1b 26 17 |4 . TR=T|R-24..&.|
|00005370| 20 e7 20 54 53 3e 32 34 | 20 8c 20 54 53 3d 54 53 | . TS>24| . TS=TS|
|00005380| 2d 32 34 0d 1b 30 06 20 | e1 0d 1b 3a 06 20 3a 0d |-24..0. |...:. :.|
|00005390| 1b 44 0e 20 dd f2 53 75 | 6e 72 73 75 6e 0d 1b 4e |.D. ..Su|nrsun..N|
|000053a0| 15 20 f2 53 75 6e 3a f2 | 4e 75 74 61 74 3a 48 54 |. .Sun:.|Nutat:HT|
|000053b0| 3d 30 0d 1b 58 28 20 58 | 3d 4c 53 4e 2b 31 2e 37 |=0..X( X|=LSN+1.7|
|000053c0| 34 35 33 32 39 32 35 32 | 45 2d 32 2a 28 44 50 53 |45329252|E-2*(DPS|
|000053d0| 49 2d 35 2e 36 39 45 2d | 33 29 0d 1b 62 16 20 59 |I-5.69E-|3)..b. Y|
|000053e0| 3d 30 3a 53 57 33 3d 2d | 31 3a f2 45 71 65 63 6c |=0:SW3=-|1:.Eqecl|
|000053f0| 0d 1b 6c 1f 20 58 3d 33 | 2e 38 31 39 37 31 38 36 |..l. X=3|.8197186|
|00005400| 33 34 2a 50 3a 59 3d 51 | 3a f2 52 69 73 65 74 0d |34*P:Y=Q|:.Riset.|
|00005410| 1b 76 06 20 e1 0d 1b 80 | 06 20 3a 0d 1b 8a 0c 20 |.v. ....|. :.... |
|00005420| dd f2 52 69 73 65 74 0d | 1b 94 17 20 e7 20 46 4c |..Riset.|... . FL|
|00005430| 41 47 28 39 29 3d 31 20 | 8c 20 8d 64 46 5b 0d 1b |AG(9)=1 |. .dF[..|
|00005440| 9e 23 20 dd a4 41 53 4e | 28 57 29 3d 99 28 57 2f |.# ..ASN|(W)=.(W/|
|00005450| 28 b6 28 31 2d 57 2a 57 | 29 2b 31 45 2d 32 30 29 |(.(1-W*W|)+1E-20)|
|00005460| 29 0d 1b a8 21 20 dd a4 | 41 43 53 28 57 29 3d 31 |)...! ..|ACS(W)=1|
|00005470| 2e 35 37 30 37 39 36 33 | 32 37 2d a4 41 53 4e 28 |.5707963|27-.ASN(|
|00005480| 57 29 0d 1b b2 1c 20 43 | 50 48 49 3d 9b 28 50 48 |W).... C|PHI=.(PH|
|00005490| 49 29 3a 53 50 48 49 3d | b5 28 50 48 49 29 0d 1b |I):SPHI=|.(PHI)..|
|000054a0| bc 16 20 54 50 49 3d 32 | 2a af 3a 46 4c 41 47 28 |.. TPI=2|*.:FLAG(|
|000054b0| 39 29 3d 31 0d 1b c6 16 | 20 43 59 3d 9b 28 59 29 |9)=1....| CY=.(Y)|
|000054c0| 3a 41 3d 43 59 2a 43 50 | 48 49 0d 1b d0 1b 20 e7 |:A=CY*CP|HI.... .|
|000054d0| 20 94 28 41 29 3c 31 45 | 2d 31 30 20 f2 45 72 72 | .(A)<1E|-10 .Err|
|000054e0| 6f 72 33 3a e1 0d 1b da | 11 20 43 50 53 49 3d 53 |or3:....|. CPSI=S|
|000054f0| 50 48 49 2f 43 59 0d 1b | e4 16 20 e7 20 43 50 53 |PHI/CY..|.. . CPS|
|00005500| 49 3e 31 20 8c 20 43 50 | 53 49 3d 31 0d 1b ee 18 |I>1 . CP|SI=1....|
|00005510| 20 e7 20 43 50 53 49 3c | 2d 31 20 8c 20 43 50 53 | . CPSI<|-1 . CPS|
|00005520| 49 3d 2d 31 0d 1b f8 1f | 20 50 53 49 3d a4 41 43 |I=-1....| PSI=.AC|
|00005530| 53 28 43 50 53 49 29 3a | 53 50 53 49 3d b5 28 50 |S(CPSI):|SPSI=.(P|
|00005540| 53 49 29 0d 1c 02 20 20 | 44 48 3d 44 49 53 2a 53 |SI)... |DH=DIS*S|
|00005550| 50 53 49 3a 59 31 3d 59 | 2b 28 44 49 53 2a 43 50 |PSI:Y1=Y|+(DIS*CP|
|00005560| 53 49 29 0d 1c 0c 16 20 | 53 59 3d b5 28 59 31 29 |SI).... |SY=.(Y1)|
|00005570| 3a 54 59 3d b7 28 59 31 | 29 0d 1c 16 19 20 43 48 |:TY=.(Y1|).... CH|
|00005580| 3d 28 2d 31 2a 53 50 48 | 49 2a 54 59 29 2f 43 50 |=(-1*SPH|I*TY)/CP|
|00005590| 48 49 0d 1c 20 16 20 e7 | 20 43 48 3c 2d 31 20 f2 |HI.. . .| CH<-1 .|
|000055a0| 45 72 72 6f 72 31 3a e1 | 0d 1c 2a 15 20 e7 20 43 |Error1:.|..*. . C|
|000055b0| 48 3e 31 20 f2 45 72 72 | 6f 72 32 3a e1 0d 1c 34 |H>1 .Err|or2:...4|
|000055c0| 16 20 45 52 52 31 3d 30 | 3a 48 3d a4 41 43 53 28 |. ERR1=0|:H=.ACS(|
|000055d0| 43 48 29 0d 1c 3e 19 20 | 48 3d 28 48 2b 44 48 29 |CH)..>. |H=(H+DH)|
|000055e0| 2a 33 2e 38 31 39 37 31 | 38 36 33 34 0d 1c 48 19 |*3.81971|8634..H.|
|000055f0| 20 4c 53 54 52 3d 32 34 | 2b 58 2d 48 3a 4c 53 54 | LSTR=24|+X-H:LST|
|00005600| 53 3d 58 2b 48 0d 1c 52 | 20 20 43 41 5a 52 3d 53 |S=X+H..R| CAZR=S|
|00005610| 59 2f 43 50 48 49 3a 41 | 5a 52 3d a4 41 43 53 28 |Y/CPHI:A|ZR=.ACS(|
|00005620| 43 41 5a 52 29 0d 1c 5c | 24 20 41 5a 53 3d 54 50 |CAZR)..\|$ AZS=TP|
|00005630| 49 2d 41 5a 52 3a 42 3d | 4c 53 54 52 3a 43 3d 32 |I-AZR:B=|LSTR:C=2|
|00005640| 34 3a f2 41 64 6a 75 73 | 74 0d 1c 66 21 20 4c 53 |4:.Adjus|t..f! LS|
|00005650| 54 52 3d 42 3a 42 3d 4c | 53 54 53 3a f2 41 64 6a |TR=B:B=L|STS:.Adj|
|00005660| 75 73 74 3a 4c 53 54 53 | 3d 42 0d 1c 70 1e 20 42 |ust:LSTS|=B..p. B|
|00005670| 3d 41 5a 52 3a 43 3d 54 | 50 49 3a f2 41 64 6a 75 |=AZR:C=T|PI:.Adju|
|00005680| 73 74 3a 41 5a 52 3d 42 | 0d 1c 7a 18 20 42 3d 41 |st:AZR=B|..z. B=A|
|00005690| 5a 53 3a f2 41 64 6a 75 | 73 74 3a 41 5a 53 3d 42 |ZS:.Adju|st:AZS=B|
|000056a0| 0d 1c 84 06 20 e1 0d 1c | 8e 06 20 3a 0d 1c 98 0d |.... ...|.. :....|
|000056b0| 20 dd f2 41 64 6a 75 73 | 74 0d 1c a2 12 20 e7 20 | ..Adjus|t.... . |
|000056c0| 42 3c 30 20 8c 20 42 3d | 42 2b 43 0d 1c ac 12 20 |B<0 . B=|B+C.... |
|000056d0| e7 20 42 3e 43 20 8c 20 | 42 3d 42 2d 43 0d 1c b6 |. B>C . |B=B-C...|
|000056e0| 06 20 e1 0d 1c c0 06 20 | 3a 0d 1c ca 0d 20 dd f2 |. ..... |:.... ..|
|000056f0| 45 72 72 6f 72 31 0d 1c | d4 21 20 45 52 52 31 3d |Error1..|.! ERR1=|
|00005700| 2d 31 3a f1 22 2a 2a 20 | 63 69 72 63 75 6d 70 6f |-1:."** |circumpo|
|00005710| 6c 61 72 20 2a 2a 22 0d | 1c de 06 20 e1 0d 1c e8 |lar **".|... ....|
|00005720| 06 20 3a 0d 1c f2 0d 20 | dd f2 45 72 72 6f 72 32 |. :.... |..Error2|
|00005730| 0d 1c fc 20 20 45 52 52 | 31 3d 31 3a f1 22 2a 2a |... ERR|1=1:."**|
|00005740| 20 6e 65 76 65 72 20 72 | 69 73 65 73 20 2a 2a 22 | never r|ises **"|
|00005750| 0d 1d 06 06 20 e1 0d 1d | 10 06 20 3a 0d 1d 1a 10 |.... ...|.. :....|
|00005760| 20 dd 52 50 4f 43 45 72 | 72 6f 72 33 0d 1d 24 2b | .RPOCEr|ror3..$+|
|00005770| 20 45 52 52 31 3d 32 3a | f1 22 2a 2a 20 69 6d 70 | ERR1=2:|."** imp|
|00005780| 6f 73 73 69 62 6c 65 20 | 63 61 6c 63 75 6c 61 74 |ossible |calculat|
|00005790| 69 6f 6e 20 2a 2a 22 0d | 1d 2e 06 20 e1 0d 1d 38 |ion **".|... ...8|
|000057a0| 06 20 3a 0d 1d 42 06 20 | 3a 0d 1d 4c 0f 20 dd f2 |. :..B. |:..L. ..|
|000057b0| 50 65 6c 65 6d 65 6e 74 | 0d 1d 56 1f 20 dc 22 4d |Pelement|..V. ."M|
|000057c0| 41 52 53 22 2c 22 4a 55 | 50 49 54 45 52 22 2c 22 |ARS","JU|PITER","|
|000057d0| 53 41 54 55 52 4e 22 0d | 1d 60 06 20 3a 0d 1d 6a |SATURN".|.`. :..j|
|000057e0| 12 20 f4 20 20 20 4d 61 | 72 73 2e 2e 2e 2e 2e 0d |. . Ma|rs......|
|000057f0| 1d 74 06 20 3a 0d 1d 7e | 27 20 dc 32 39 33 2e 37 |.t. :..~|' .293.7|
|00005800| 33 37 33 33 34 2c 35 33 | 2e 31 37 31 33 37 36 34 |37334,53|.1713764|
|00005810| 32 2c 33 2e 31 30 37 45 | 2d 34 2c 30 0d 1d 88 25 |2,3.107E|-4,0...%|
|00005820| 20 dc 33 2e 33 34 32 31 | 38 32 30 33 45 32 2c 31 | .3.3421|8203E2,1|
|00005830| 2e 38 34 30 37 35 38 34 | 2c 31 2e 32 39 39 45 2d |.8407584|,1.299E-|
|00005840| 34 0d 1d 92 0e 20 dc 2d | 31 2e 31 39 45 2d 36 0d |4.... .-|1.19E-6.|
|00005850| 1d 9c 24 20 dc 39 2e 33 | 33 31 32 39 45 2d 32 2c |..$ .9.3|3129E-2,|
|00005860| 39 2e 32 30 36 34 45 2d | 35 2c 2d 37 2e 37 45 2d |9.2064E-|5,-7.7E-|
|00005870| 38 2c 30 0d 1d a6 21 20 | dc 31 2e 38 35 30 33 33 |8,0...! |.1.85033|
|00005880| 33 2c 2d 36 2e 37 35 45 | 2d 34 2c 31 2e 32 36 45 |3,-6.75E|-4,1.26E|
|00005890| 2d 35 2c 30 0d 1d b0 23 | 20 dc 34 38 2e 37 38 36 |-5,0...#| .48.786|
|000058a0| 34 34 32 2c 37 2e 37 30 | 39 39 31 37 45 2d 31 2c |442,7.70|9917E-1,|
|000058b0| 2d 31 2e 34 45 2d 36 0d | 1d ba 0e 20 dc 2d 35 2e |-1.4E-6.|... .-5.|
|000058c0| 33 33 45 2d 36 0d 1d c4 | 1a 20 dc 31 2e 35 32 33 |33E-6...|. .1.523|
|000058d0| 36 38 38 33 2c 39 2e 33 | 36 2c 2d 31 2e 35 32 0d |6883,9.3|6,-1.52.|
|000058e0| 1d ce 06 20 3a 0d 1d d8 | 15 20 f4 20 20 20 4a 75 |... :...|. . Ju|
|000058f0| 70 69 74 65 72 2e 2e 2e | 2e 2e 0d 1d e2 06 20 3a |piter...|...... :|
|00005900| 0d 1d ec 25 20 dc 32 33 | 38 2e 30 34 39 32 35 37 |...% .23|8.049257|
|00005910| 2c 38 2e 34 33 34 31 37 | 32 31 38 33 2c 33 2e 33 |,8.43417|2183,3.3|
|00005920| 34 37 45 2d 34 0d 1d f6 | 0e 20 dc 2d 31 2e 36 35 |47E-4...|. .-1.65|
|00005930| 45 2d 36 0d 1e 00 26 20 | dc 31 2e 32 37 32 30 39 |E-6...& |.1.27209|
|00005940| 37 32 45 31 2c 31 2e 36 | 30 39 39 36 31 37 2c 31 |72E1,1.6|099617,1|
|00005950| 2e 30 35 36 32 37 45 2d | 33 0d 1e 0a 0e 20 dc 2d |.05627E-|3.... .-|
|00005960| 33 2e 34 33 45 2d 36 0d | 1e 14 25 20 dc 34 2e 38 |3.43E-6.|..% .4.8|
|00005970| 33 33 34 37 35 45 2d 32 | 2c 31 2e 36 34 31 38 45 |33475E-2|,1.6418E|
|00005980| 2d 34 2c 2d 34 2e 36 37 | 36 45 2d 37 0d 1e 1e 0d |-4,-4.67|6E-7....|
|00005990| 20 dc 2d 31 2e 37 45 2d | 39 0d 1e 28 22 20 dc 31 | .-1.7E-|9..(" .1|
|000059a0| 2e 33 30 38 37 33 36 2c | 2d 35 2e 36 39 36 31 45 |.308736,|-5.6961E|
|000059b0| 2d 33 2c 33 2e 39 45 2d | 36 2c 30 0d 1e 32 2b 20 |-3,3.9E-|6,0..2+ |
|000059c0| dc 20 39 39 2e 34 34 33 | 34 31 34 2c 31 2e 30 31 |. 99.443|414,1.01|
|000059d0| 30 35 33 2c 33 2e 35 32 | 32 32 45 2d 34 2c 2d 38 |053,3.52|22E-4,-8|
|000059e0| 2e 35 31 45 2d 36 0d 1e | 3c 1a 20 dc 35 2e 32 30 |.51E-6..|<. .5.20|
|000059f0| 32 35 36 31 2c 31 39 36 | 2e 37 34 2c 2d 39 2e 34 |2561,196|.74,-9.4|
|00005a00| 0d 1e 46 06 20 3a 0d 1e | 50 13 20 f4 20 20 20 53 |..F. :..|P. . S|
|00005a10| 61 74 75 72 6e 2e 2e 2e | 2e 0d 1e 5a 06 20 3a 0d |aturn...|...Z. :.|
|00005a20| 1e 64 25 20 dc 32 36 36 | 2e 35 36 34 33 37 37 2c |.d% .266|.564377,|
|00005a30| 33 2e 33 39 38 36 33 38 | 35 36 37 2c 33 2e 32 34 |3.398638|567,3.24|
|00005a40| 35 45 2d 34 0d 1e 6e 0d | 20 dc 2d 35 2e 38 45 2d |5E-4..n.| .-5.8E-|
|00005a50| 36 0d 1e 78 25 20 dc 39 | 2e 31 30 39 38 32 31 34 |6..x% .9|.1098214|
|00005a60| 45 31 2c 31 2e 39 35 38 | 34 31 35 38 2c 38 2e 32 |E1,1.958|4158,8.2|
|00005a70| 36 33 36 45 2d 34 0d 1e | 82 0d 20 dc 34 2e 36 31 |636E-4..|.. .4.61|
|00005a80| 45 2d 36 0d 1e 8c 24 20 | dc 35 2e 35 38 39 32 33 |E-6...$ |.5.58923|
|00005a90| 32 45 2d 32 2c 2d 33 2e | 34 35 35 45 2d 34 2c 2d |2E-2,-3.|455E-4,-|
|00005aa0| 37 2e 32 38 45 2d 37 0d | 1e 96 0d 20 dc 37 2e 34 |7.28E-7.|... .7.4|
|00005ab0| 45 2d 31 30 0d 1e a0 28 | 20 dc 32 2e 34 39 32 35 |E-10...(| .2.4925|
|00005ac0| 31 39 2c 2d 33 2e 39 31 | 38 39 45 2d 33 2c 2d 31 |19,-3.91|89E-3,-1|
|00005ad0| 2e 35 34 39 45 2d 35 2c | 34 45 2d 38 0d 1e aa 27 |.549E-5,|4E-8...'|
|00005ae0| 20 dc 31 31 32 2e 37 39 | 30 34 31 34 2c 38 2e 37 | .112.79|0414,8.7|
|00005af0| 33 31 39 35 31 45 2d 31 | 2c 2d 31 2e 35 32 31 38 |31951E-1|,-1.5218|
|00005b00| 45 2d 34 0d 1e b4 0e 20 | dc 2d 35 2e 33 31 45 2d |E-4.... |.-5.31E-|
|00005b10| 36 0d 1e be 1a 20 dc 39 | 2e 35 35 34 37 34 37 2c |6.... .9|.554747,|
|00005b20| 31 36 35 2e 36 2c 2d 38 | 2e 38 38 0d 1e c8 06 20 |165.6,-8|.88.... |
|00005b30| 3a 0d 1e d2 0b 20 f4 20 | 49 50 3d 30 0d 1e dc 06 |:.... . |IP=0....|
|00005b40| 20 3a 0d 1e e6 18 20 f2 | 4a 75 6c 64 61 79 3a 54 | :.... .|Julday:T|
|00005b50| 3d 44 4a 44 2f 33 36 35 | 32 35 0d 1e f0 0e 20 e3 |=DJD/365|25.... .|
|00005b60| 20 49 3d 31 20 b8 20 33 | 0d 1e fa 19 20 f3 41 30 | I=1 . 3|.... .A0|
|00005b70| 2c 41 31 2c 41 32 2c 41 | 33 3a 41 41 3d 41 31 2a |,A1,A2,A|3:AA=A1*|
|00005b80| 54 0d 1f 04 15 20 42 3d | 33 36 30 2a 28 41 41 2d |T.... B=|360*(AA-|
|00005b90| a8 28 41 41 29 29 0d 1f | 0e 21 20 50 4c 41 4e 28 |.(AA))..|.! PLAN(|
|00005ba0| 49 2c 31 29 3d 41 30 2b | 42 2b 28 41 33 2a 54 2b |I,1)=A0+|B+(A3*T+|
|00005bb0| 41 32 29 2a 54 2a 54 0d | 1f 18 35 20 e7 20 50 4c |A2)*T*T.|..5 . PL|
|00005bc0| 41 4e 28 49 2c 31 29 3e | 33 36 30 20 8c 20 50 4c |AN(I,1)>|360 . PL|
|00005bd0| 41 4e 28 49 2c 31 29 3d | 50 4c 41 4e 28 49 2c 31 |AN(I,1)=|PLAN(I,1|
|00005be0| 29 2d 33 36 30 3a e5 20 | 8d 54 58 5f 0d 1f 22 33 |)-360:. |.TX_.."3|
|00005bf0| 20 e7 20 50 4c 41 4e 28 | 49 2c 31 29 3c 30 20 8c | . PLAN(|I,1)<0 .|
|00005c00| 20 50 4c 41 4e 28 49 2c | 31 29 3d 50 4c 41 4e 28 | PLAN(I,|1)=PLAN(|
|00005c10| 49 2c 31 29 2b 33 36 30 | 3a e5 20 8d 54 62 5f 0d |I,1)+360|:. .Tb_.|
|00005c20| 1f 2c 2d 20 50 4c 41 4e | 28 49 2c 32 29 3d 28 41 |.,- PLAN|(I,2)=(A|
|00005c30| 31 2a 39 2e 38 35 36 32 | 36 33 45 2d 33 29 2b 28 |1*9.8562|63E-3)+(|
|00005c40| 41 32 2b 41 33 29 2f 33 | 36 35 32 35 0d 1f 36 1c |A2+A3)/3|6525..6.|
|00005c50| 20 e3 20 4a 3d 33 20 b8 | 20 36 3a f3 20 41 30 2c | . J=3 .| 6:. A0,|
|00005c60| 41 31 2c 41 32 2c 41 33 | 0d 1f 40 24 20 50 4c 41 |A1,A2,A3|..@$ PLA|
|00005c70| 4e 28 49 2c 4a 29 3d 28 | 28 41 33 2a 54 2b 41 32 |N(I,J)=(|(A3*T+A2|
|00005c80| 29 2a 54 2b 41 31 29 2a | 54 2b 41 30 0d 1f 4a 08 |)*T+A1)*|T+A0..J.|
|00005c90| 20 ed 20 4a 0d 1f 54 24 | 20 f3 20 50 4c 41 4e 28 | . J..T$| . PLAN(|
|00005ca0| 49 2c 37 29 2c 50 4c 41 | 4e 28 49 2c 38 29 2c 50 |I,7),PLA|N(I,8),P|
|00005cb0| 4c 41 4e 28 49 2c 39 29 | 0d 1f 5e 08 20 ed 20 49 |LAN(I,9)|..^. . I|
|00005cc0| 0d 1f 68 0a 20 f7 8d 44 | 7e 5d 0d 1f 72 06 20 e1 |..h. ..D|~]..r. .|
|00005cd0| 0d 1f 7c 06 20 3a 0d 1f | 86 0c 20 dd f2 50 6c 61 |..|. :..|.. ..Pla|
|00005ce0| 6e 73 0d 1f 90 1a 20 f2 | 50 65 6c 65 6d 65 6e 74 |ns.... .|Pelement|
|00005cf0| 3a 44 54 3d 30 3a 50 41 | 53 53 3d 30 0d 1f 9a 16 |:DT=0:PA|SS=0....|
|00005d00| 20 f4 20 49 46 20 49 50 | 3d 30 20 45 4e 44 50 52 | . IF IP|=0 ENDPR|
|00005d10| 4f 43 0d 1f a4 0c 20 54 | 50 49 3d 32 2a af 0d 1f |OC.... T|PI=2*...|
|00005d20| ae 10 20 f2 53 75 6e 3a | 4d 41 53 3d 4d 41 0d 1f |.. .Sun:|MAS=MA..|
|00005d30| b8 14 20 52 45 3d 52 53 | 4e 3a 4c 47 3d 4c 53 4e |.. RE=RS|N:LG=LSN|
|00005d40| 2b af 0d 1f c2 0e 20 e3 | 20 4a 3d 31 20 b8 20 38 |+..... .| J=1 . 8|
|00005d50| 0d 1f cc 32 20 4d 41 50 | 28 4a 29 3d a4 52 41 44 |...2 MAP|(J)=.RAD|
|00005d60| 28 50 4c 41 4e 28 4a 2c | 31 29 2d 50 4c 41 4e 28 |(PLAN(J,|1)-PLAN(|
|00005d70| 4a 2c 33 29 2d 44 54 2a | 50 4c 41 4e 28 4a 2c 32 |J,3)-DT*|PLAN(J,2|
|00005d80| 29 29 0d 1f d6 08 20 ed | 20 4a 0d 1f e0 19 20 44 |)).... .| J.... D|
|00005d90| 4c 3d 30 3a 44 52 3d 30 | 3a 44 4d 4c 3d 30 3a 44 |L=0:DR=0|:DML=0:D|
|00005da0| 53 3d 30 0d 1f ea 14 20 | 44 4d 3d 30 3a 44 41 3d |S=0.... |DM=0:DA=|
|00005db0| 30 3a 44 48 4c 3d 30 0d | 1f f4 06 20 3a 0d 1f fe |0:DHL=0.|... :...|
|00005dc0| 0c 20 c8 8e 20 49 50 20 | ca 0d 20 08 12 20 20 c9 |. .. IP |.. .. .|
|00005dd0| 20 31 20 20 20 3a f2 4d | 61 72 73 0d 20 12 14 20 | 1 :.M|ars. .. |
|00005de0| 20 c9 20 32 2c 33 20 3a | f2 4d 61 6a 6f 72 73 0d | . 2,3 :|.Majors.|
|00005df0| 20 1c 06 20 cb 0d 20 26 | 06 20 3a 0d 20 30 06 20 | .. .. &|. :. 0. |
|00005e00| 3a 0d 20 3a 06 20 3a 0d | 20 44 22 20 53 3d 50 4c |:. :. :.| D" S=PL|
|00005e10| 41 4e 28 49 50 2c 34 29 | 2b 44 53 3a 4d 41 3d 4d |AN(IP,4)|+DS:MA=M|
|00005e20| 41 50 28 49 50 29 2b 44 | 4d 0d 20 4e 0d 20 f2 41 |AP(IP)+D|M. N. .A|
|00005e30| 6e 6f 6d 61 6c 79 0d 20 | 58 2b 20 52 50 3d 28 50 |nomaly. |X+ RP=(P|
|00005e40| 4c 41 4e 28 49 50 2c 37 | 29 2b 44 41 29 2a 28 31 |LAN(IP,7|)+DA)*(1|
|00005e50| 2d 53 2a 53 29 2f 28 31 | 2b 53 2a 9b 28 4e 55 29 |-S*S)/(1|+S*.(NU)|
|00005e60| 29 0d 20 62 28 20 4c 50 | 3d a4 44 45 47 28 4e 55 |). b( LP|=.DEG(NU|
|00005e70| 29 2b 50 4c 41 4e 28 49 | 50 2c 33 29 2b a4 44 45 |)+PLAN(I|P,3)+.DE|
|00005e80| 47 28 44 4d 4c 2d 44 4d | 29 0d 20 6c 24 20 4c 50 |G(DML-DM|). l$ LP|
|00005e90| 3d a4 52 41 44 28 4c 50 | 29 3a 4f 4d 3d a4 52 41 |=.RAD(LP|):OM=.RA|
|00005ea0| 44 28 50 4c 41 4e 28 49 | 50 2c 36 29 29 0d 20 76 |D(PLAN(I|P,6)). v|
|00005eb0| 21 20 4c 4f 3d 4c 50 2d | 4f 4d 3a 53 4c 4f 3d b5 |! LO=LP-|OM:SLO=.|
|00005ec0| 28 4c 4f 29 3a 43 4c 4f | 3d 9b 28 4c 4f 29 0d 20 |(LO):CLO|=.(LO). |
|00005ed0| 80 22 20 49 4e 43 3d a4 | 52 41 44 28 50 4c 41 4e |." INC=.|RAD(PLAN|
|00005ee0| 28 49 50 2c 35 29 29 3a | 52 50 3d 52 50 2b 44 52 |(IP,5)):|RP=RP+DR|
|00005ef0| 0d 20 8a 21 20 53 50 53 | 49 3d 53 4c 4f 2a b5 28 |. .! SPS|I=SLO*.(|
|00005f00| 49 4e 43 29 3a 59 3d 53 | 4c 4f 2a 9b 28 49 4e 43 |INC):Y=S|LO*.(INC|
|00005f10| 29 0d 20 94 23 20 50 53 | 49 3d a4 41 53 4e 28 53 |). .# PS|I=.ASN(S|
|00005f20| 50 53 49 29 2b 44 48 4c | 3a 53 50 53 49 3d b5 28 |PSI)+DHL|:SPSI=.(|
|00005f30| 50 53 49 29 0d 20 9e 1d | 20 4c 50 44 3d 99 28 59 |PSI). ..| LPD=.(Y|
|00005f40| 2f 43 4c 4f 29 2b 4f 4d | 2b a4 52 41 44 28 44 4c |/CLO)+OM|+.RAD(DL|
|00005f50| 29 0d 20 a8 18 20 e7 20 | 43 4c 4f 3c 30 20 8c 20 |). .. . |CLO<0 . |
|00005f60| 4c 50 44 3d 4c 50 44 2b | af 0d 20 b2 1c 20 e7 20 |LPD=LPD+|.. .. . |
|00005f70| 4c 50 44 3e 54 50 49 20 | 8c 20 4c 50 44 3d 4c 50 |LPD>TPI |. LPD=LP|
|00005f80| 44 2d 54 50 49 0d 20 bc | 1c 20 43 50 53 49 3d 9b |D-TPI. .|. CPSI=.|
|00005f90| 28 50 53 49 29 3a 52 50 | 44 3d 52 50 2a 43 50 53 |(PSI):RP|D=RP*CPS|
|00005fa0| 49 0d 20 c6 1a 20 4c 4c | 3d 4c 50 44 2d 4c 47 3a |I. .. LL|=LPD-LG:|
|00005fb0| 50 41 53 53 3d 50 41 53 | 53 2b 31 0d 20 d0 27 20 |PASS=PAS|S+1. .' |
|00005fc0| 52 48 4f 3d 52 45 2a 52 | 45 2b 52 50 2a 52 50 2d |RHO=RE*R|E+RP*RP-|
|00005fd0| 32 2a 52 45 2a 52 50 2a | 43 50 53 49 2a 9b 28 4c |2*RE*RP*|CPSI*.(L|
|00005fe0| 4c 29 0d 20 da 20 20 52 | 48 4f 3d b6 28 52 48 4f |L). . R|HO=.(RHO|
|00005ff0| 29 3a 44 54 3d 52 48 4f | 2a 35 2e 37 37 35 35 45 |):DT=RHO|*5.7755E|
|00006000| 2d 33 0d 20 e4 31 20 e7 | 20 50 41 53 53 3d 31 20 |-3. .1 .| PASS=1 |
|00006010| 8c 20 4c 50 44 30 3d 4c | 50 44 3a 50 53 49 30 3d |. LPD0=L|PD:PSI0=|
|00006020| 50 53 49 3a 52 48 4f 30 | 3d 52 48 4f 3a 52 50 30 |PSI:RHO0|=RHO:RP0|
|00006030| 3d 52 50 0d 20 ee 14 20 | e7 20 50 41 53 53 3c 32 |=RP. .. |. PASS<2|
|00006040| 20 8c 20 8d 64 42 5f 0d | 20 f8 18 20 53 4c 4c 3d | . .dB_.| .. SLL=|
|00006050| b5 28 4c 4c 29 3a 43 4c | 4c 3d 9b 28 4c 4c 29 0d |.(LL):CL|L=.(LL).|
|00006060| 21 02 17 f4 20 49 46 20 | 49 50 3c 33 20 54 48 45 |!... IF |IP<3 THE|
|00006070| 4e 20 37 38 39 30 0d 21 | 0c 23 20 4c 41 4d 3d 99 |N 7890.!|.# LAM=.|
|00006080| 28 52 45 2a 53 4c 4c 2f | 28 52 50 44 2d 52 45 2a |(RE*SLL/|(RPD-RE*|
|00006090| 43 4c 4c 29 29 2b 4c 50 | 44 0d 21 16 0f f4 20 47 |CLL))+LP|D.!... G|
|000060a0| 4f 54 4f 20 37 39 30 30 | 0d 21 20 2c f4 20 4c 41 |OTO 7900|.! ,. LA|
|000060b0| 4d 3d 41 54 4e 28 2d 31 | 2a 52 50 44 2a 53 4c 4c |M=ATN(-1|*RPD*SLL|
|000060c0| 2f 28 52 45 2d 52 50 44 | 2a 43 4c 4c 29 29 2b 4c |/(RE-RPD|*CLL))+L|
|000060d0| 47 2b 50 49 0d 21 2a 21 | 20 e7 20 4c 41 4d 3c 30 |G+PI.!*!| . LAM<0|
|000060e0| 20 8c 20 4c 41 4d 3d 4c | 41 4d 2b 54 50 49 3a e5 | . LAM=L|AM+TPI:.|
|000060f0| 20 8d 54 6a 61 0d 21 34 | 23 20 e7 20 4c 41 4d 3e | .Tja.!4|# . LAM>|
|00006100| 54 50 49 20 8c 20 4c 41 | 4d 3d 4c 41 4d 2d 54 50 |TPI . LA|M=LAM-TP|
|00006110| 49 3a e5 20 8d 54 74 61 | 0d 21 3e 2d 20 42 45 54 |I:. .Tta|.!>- BET|
|00006120| 3d 99 28 52 50 44 2a 53 | 50 53 49 2a b5 28 4c 41 |=.(RPD*S|PSI*.(LA|
|00006130| 4d 2d 4c 50 44 29 2f 28 | 43 50 53 49 2a 52 45 2a |M-LPD)/(|CPSI*RE*|
|00006140| 53 4c 4c 29 29 0d 21 48 | 06 20 e1 0d 21 52 06 20 |SLL)).!H|. ..!R. |
|00006150| 3a 0d 21 5c 0b 20 dd f2 | 4d 61 72 73 0d 21 66 1e |:.!\. ..|Mars.!f.|
|00006160| 20 41 3d 33 2a 4d 41 50 | 28 34 29 2d 38 2a 4d 41 | A=3*MAP|(4)-8*MA|
|00006170| 50 28 33 29 2b 34 2a 4d | 41 53 0d 21 70 14 20 53 |P(3)+4*M|AS.!p. S|
|00006180| 41 3d b5 28 41 29 3a 43 | 41 3d 9b 28 41 29 0d 21 |A=.(A):C|A=.(A).!|
|00006190| 7a 24 20 44 4d 4c 3d 2d | 31 2a 28 31 2e 31 33 33 |z$ DML=-|1*(1.133|
|000061a0| 45 2d 32 2a 53 41 2b 39 | 2e 33 33 45 2d 33 2a 43 |E-2*SA+9|.33E-3*C|
|000061b0| 41 29 0d 21 84 19 20 44 | 4d 4c 3d a4 52 41 44 28 |A).!.. D|ML=.RAD(|
|000061c0| 44 4d 4c 29 3a 44 4d 3d | 44 4d 4c 0d 21 8e d3 20 |DML):DM=|DML.!.. |
|000061d0| 44 4c 3d 37 2e 30 35 45 | 2d 33 2a 9b 28 4d 41 50 |DL=7.05E|-3*.(MAP|
|000061e0| 28 34 29 2d 4d 41 50 28 | 33 29 2d 38 2e 35 34 34 |(4)-MAP(|3)-8.544|
|000061f0| 38 45 2d 31 29 2b 36 2e | 30 37 45 2d 33 2a 9b 28 |8E-1)+6.|07E-3*.(|
|00006200| 32 2a 4d 41 50 28 34 29 | 2d 4d 41 50 28 33 29 2d |2*MAP(4)|-MAP(3)-|
|00006210| 33 2e 32 38 37 33 29 2b | 34 2e 34 35 45 2d 33 2a |3.2873)+|4.45E-3*|
|00006220| 9b 28 32 2a 4d 41 50 28 | 34 29 2d 32 2a 4d 41 50 |.(2*MAP(|4)-2*MAP|
|00006230| 28 33 29 2d 33 2e 33 34 | 39 32 29 2b 33 2e 38 38 |(3)-3.34|92)+3.88|
|00006240| 45 2d 33 2a 9b 28 4d 41 | 53 2d 32 2a 4d 41 50 28 |E-3*.(MA|S-2*MAP(|
|00006250| 33 29 2b 33 2e 35 37 37 | 31 45 2d 31 29 2b 32 2e |3)+3.577|1E-1)+2.|
|00006260| 33 38 45 2d 33 2a 9b 28 | 4d 41 53 2d 4d 41 50 28 |38E-3*.(|MAS-MAP(|
|00006270| 33 29 2b 36 2e 31 32 35 | 36 45 2d 31 29 2b 32 2e |3)+6.125|6E-1)+2.|
|00006280| 30 34 45 2d 33 2a 9b 28 | 32 2a 4d 41 53 2d 33 2a |04E-3*.(|2*MAS-3*|
|00006290| 4d 41 50 28 33 29 2b 32 | 2e 37 36 38 38 29 0d 21 |MAP(3)+2|.7688).!|
|000062a0| 98 69 20 44 4c 3d 44 4c | 2b 31 2e 37 37 45 2d 33 |.i DL=DL|+1.77E-3|
|000062b0| 2a 9b 28 33 2a 4d 41 50 | 28 33 29 2d 4d 41 50 28 |*.(3*MAP|(3)-MAP(|
|000062c0| 32 29 2d 31 2e 30 30 35 | 33 29 2b 31 2e 33 36 45 |2)-1.005|3)+1.36E|
|000062d0| 2d 33 2a 9b 28 32 2a 4d | 41 53 2d 34 2a 4d 41 50 |-3*.(2*M|AS-4*MAP|
|000062e0| 28 33 29 2b 32 2e 36 38 | 39 34 29 2b 31 2e 30 34 |(3)+2.68|94)+1.04|
|000062f0| 45 2d 33 2a 9b 28 4d 41 | 50 28 34 29 2b 33 2e 30 |E-3*.(MA|P(4)+3.0|
|00006300| 37 34 39 45 2d 31 29 0d | 21 a2 c0 20 44 52 3d 35 |749E-1).|!.. DR=5|
|00006310| 2e 33 32 32 37 45 2d 35 | 2a 9b 28 4d 41 50 28 34 |.3227E-5|*.(MAP(4|
|00006320| 29 2d 4d 41 50 28 33 29 | 2b 37 2e 31 37 38 36 34 |)-MAP(3)|+7.17864|
|00006330| 45 2d 31 29 2b 35 2e 30 | 39 38 39 45 2d 35 2a 9b |E-1)+5.0|989E-5*.|
|00006340| 28 32 2a 4d 41 50 28 34 | 29 2d 32 2a 4d 41 50 28 |(2*MAP(4|)-2*MAP(|
|00006350| 33 29 2d 31 2e 37 37 39 | 39 37 29 2b 33 2e 38 32 |3)-1.779|97)+3.82|
|00006360| 37 38 45 2d 35 2a 9b 28 | 32 2a 4d 41 50 28 34 29 |78E-5*.(|2*MAP(4)|
|00006370| 2d 4d 41 50 28 33 29 2d | 31 2e 37 31 36 31 37 29 |-MAP(3)-|1.71617)|
|00006380| 2b 31 2e 35 39 39 36 45 | 2d 35 2a 9b 28 4d 41 53 |+1.5996E|-5*.(MAS|
|00006390| 2d 4d 41 50 28 33 29 2d | 39 2e 36 39 36 31 38 45 |-MAP(3)-|9.69618E|
|000063a0| 2d 31 29 2b 31 2e 34 37 | 36 34 45 2d 35 2a 9b 28 |-1)+1.47|64E-5*.(|
|000063b0| 32 2a 4d 41 53 2d 33 2a | 4d 41 50 28 33 29 2b 31 |2*MAS-3*|MAP(3)+1|
|000063c0| 2e 31 39 37 36 38 29 0d | 21 ac c2 20 44 52 3d 44 |.19768).|!.. DR=D|
|000063d0| 52 2b 38 2e 39 36 36 45 | 2d 36 2a 9b 28 4d 41 50 |R+8.966E|-6*.(MAP|
|000063e0| 28 34 29 2d 32 2a 4d 41 | 50 28 33 29 2b 37 2e 36 |(4)-2*MA|P(3)+7.6|
|000063f0| 31 32 32 35 45 2d 31 29 | 2b 37 2e 39 31 34 45 2d |1225E-1)|+7.914E-|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.